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DOD | DDD EEE BBB BBB UUU UU G 
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DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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DEBUG. SRC JGE TMEMO 
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i] 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE T F SUCH LICENSE AND WITH THE 


® 

® 

® 

® 

* 

® 

® 

® 

i 0 I * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
ie TRANSFERRED. . 
® 

'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 

we 

ay 

® 

a 

& 

® 

® 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
'® CORPORATION. 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ESET ISITE ITT ITT ITT TTT ric i sti Titer rire riitititititity 


WRITTEN BY 
Bert Beander August, 1980. 


MODULE FUNCTION 
This module contains the Depuager 's Free Memory Manager, i.e. all the 
routines which initialize the free memory pool and allocate and dealloc- 
ate memory blocks. These memory blocks are used for RST entries, Static 
Address Table entries, and most other descriptors used in the Debugger. 


MODIFIED BY 
Ping Sager May, 1982 Add PUSH and POP routines to manage 


releasing the tempory memory blocks 


in levels 

Added DBGSNPARSE_ALLOCATE and 
DBGSNEXECUTE_ALLOCATE to support the 
ALLOCATE command. 


Rich Title May, 1982 


REQUIRE "SRC$:DBGPROLOG.REQ'; 


FORWARD ROUTINE 


DBGSCHECK_MEMORY: NOVALUE, Check the integrity of the menery pool 
na 


DBGSCOPY_MEMORY, Make a copy of a memory block 
permanent block 
DBGSCOPY_TEMPMEM, Make a copy of a memory block in a 


sensor ory block 

Expand the free memory pool 
Compute amount of free memory left 
Get a memory block 

Get a temporary memory block 


DBGSEXPAND_MEMORY, 
DBGSFREE_MEM LEFT. 
DBGS$GET_MEMORY 
DBGSGET~TEMPMEM, 
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oo 
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DBGSINIT_MEMORY:  NOVALUE, 
DBGSNPARSE_ALLOCATE 
DBGSNEXECUTE ALLOCATE, 
DBGSPARSE VALCOCATE. 


DBGSPOP_TEMPMEM: NOVALUE, 


DBGSPUSH_TEMPMEM, 


DBGSREL_MEMORY: NOVALUE, 
DBGSREL_TEMPMEM: NOVALUE ; 


12 
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Initialize the free memory pool 

i Parse the ALLOCATE a 

' Execute the ALLOCAT d 

' Parse the ALLOCATE command for the 
old languages 

i Pop the pointer to the vretease” memory 
on the stack, and release that 
temporary memor 


i Push the pointer to hehe coal memory 


on the stack 


i Release a memory block 


i Release all temporary memory blocks 


| 
i 


EXTERNAL ROUTINE 
DBGSNMAKE_ARG_VECT, 


DBGSNSAVE_DECIMAL_INTEGER, 
DBGSRST_REMOVE: NOVALUE; 

EXTERNAL 
DBG gv CONTROL: DBGSCONTROL_FLAGS, 
LRUMSLISTHEAD: REF LRUMSENTRY, 


RSTSREF _LIST: REF VECTORC,LONG); 


DBGSFREE_LIST: REF FMEMSBLOCK 
INITIAL (OD, 
DBGSTEMP_MEMORY: INITIAL(O), 
DBGSTEMPMEM_POOLID: INITIAL(O), 
DBGSTEMPMEM_POOLSTK: VECTOR(25), 


FMEM_BLOCK_LIST: INITIAL(O); 
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Construct an error message vector 
Match a character string 

Parse a decimal integer 

Remove the RST for a specified module 


DEBUG control bits 

Pointer to List head for LRUM (Least 
Recently Used Module) Linked List 

Pointer to RST Reference List 


Pointer to the free-list List head 


Pointer to the singly linked List of 
“temporary ' memory blocks 
Index ee + temporary memory pool 
$s 


ac 
Temporary memory pool stack for push 
and pop operations 
Pointer to a singly Linked List of 
memory pool areas. 
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3 38 7 } GLOBAL ROUTINE DBGSCHECK_MEMORY: NOVALUE = 

: 98 § 1 § FUNCTION 

; WP Oo 9! This routine checks the Debugger’s memory pool for integrity. A com- 

: 100 ie B plete scan is made over the entire gener? pool to check that every free 
; 101 § 1! and allocated oom has the proper format. A secene complete scan is 

3 106 1! made over the entire —— pool free-List to verify that avery free 
ye 1! block has the proper format and that the list is intact. A third com- 
; 1 > es plete scan is made ayer the tengorery block’’ List, and each such block 
; 105 § 1! is checked for validity and cons hen | If any error is detected in 

3 198 i any of these scans, an error is signalled (Internal Memory Error) which 
: 1° 8 1! prints the address of the bad memory block. If the memory pool is found 
; 108 9 1! to be correct, the routine returns normally. 

: 109 8 40 1! 

: 110 41 1°! INPUTS 

oe A 

; 118 0244 1 | OUTPUTS 

Spe (Bette 

We BEL scum 

HE BEF cocu 

: 120 0251 AREAPTR: REF VECTORC,LONG), ! Pointer to current memory pool area 

3 \$) 0 26 BACKPTR: REF FM MSBLOCK : Pointer to previous free-Llist block 
as ; 025 BLKADDR: REF VECTORL,LONG), ! Pointer to ‘‘temporary’’ memory block 

: 12 0254 BLKPTR: REF FMEMSBLOCK, ! Pointer to the current memory block 

3 1g 0255 FREECOUNTI, ' Number of free blocks in gonery pool 
: 125 8 3$ FREECOUNT2 ' Number of free blocks on free-list 

: 126 5 LISTHEAD_FOUND, i Flag indicating free-list List head 

3 44 0258 ! node has been found 

; 128 0259 NEXTBLK: REF FMEMSBLOCK, : Pointer to next sequential memory bik 
3 ; 9 0 $9 TEMPBLK: REF FMEMSBLOCK; ! Pointer to ‘temporary’ block header 
oe: 

: 1 § 8 64 ' Loop over all the memory pool areas. These areas are Linked together in a 
3 : : 8 65 singly linked, zero-terminated List. Check each such area for integrity. 
; 1 0 6 LISTHEAD_FOUND = FALSE; 

Sar 0268 FREECOUNT! = 0; 

: 1 69 AREAPTR = .FMEM BLOCK_LIST; 

3; 139 WHILE .AREAPTR REQ O BO 

3 re re BEGIN 

> 146 7 

3 128 74 ' Loop over all the memory blocks in this area. Check each such block 
3 1¢e ? for consistency. 

: 146 7 BLKPTR = AREAPTR(2); 

: 14 7 F NOT .BLKPTREFMEMSV pre vay ocd THEN SI SPM (S068 _INTRERERR. 1. .GLEPTR); 
; 148 7 WHILE .BLKPTR LSSU AREAPTR(- + ,AREAPTR(1) DO 

3 13) ° ? BEGIN 

: 151 j 4 

s 152 4 ! Check the block's sentinel value. Also get the address of the 


—-— 
i 


Lemme dt BRULNERAE, 

} next sequential block in the memory area. , 

IF .BLKPTRCFMEMSB_SENTINEL] NEQ FMEMSK_SENTINEL 
SIGNAL (DBGS_INTMEMERR, 1, .BLKPTR); 

NEXTBLK = .BLKPTR + 4*.BLKPTRCFMEMSV_LENGTH); 


SA 
5 


If this is an allocated block, make sure it is marked as allocated 
' at both ends. 


' 
1 
! 
If, BLXPTREFMEMSV_ THISALLOC 


BEGIN 
4 _ oNEXTBLKCFMEMSV_PREVALLOC) 
. SIGNAL (DBGS_INTMEMERR, 1, .BLKPTR); 


! If this is a free block, check that the block length and the 
; allocation bits are consistent at both ends. 


ELSE 
BEGIN 
IF .NEXTBLKCFMEMSL_PREVLEN] NEQ .BLKPTRCFMEMSV_LENGTH] 
SIGNAL (DBGS_INTMEMERR, 1, .BLKPTR); 


WAI NWI WI nononoporernororornorororoporonrn 
SESE URLS SaaS aP ae SSE NE 


REN 9 OONO UNE — OOONOAUE WN O0@ 


—oo 


Give special treatment to the free-list list head block. 
if .BLKPTR EQL .OBGSFREE_LIST 
THEN 


BEGIN 
If NOT .NEXTBLKCFMEMSV_PREVALLOC) 
SIGNAL(DBGS_INTMEMERR, 1, .BLKPTR); 


-LISTHEAD FOUND THEN SIGNAL(DBGS$_INTMEMERR, 1, .BLKPTR); 
THEA’ D_FOURD = TRUE; 


me ka aka a at a tt i tk tt i a a a a a a — an = a a 


LSSSSLESRASLESSELEARFAVALS SSNS ARAN LSSSLSTFERVISSSLSALY 


: This is a free block but not the free-list list head. 


SOGOSOOOOOSOOOCOOSOOOCOCOOSOSOSOSSSSOOSooooosooocooooooooooooooooooo 


De ea ao a EL eo eS eo OS Ohare ter her fet pa ber her 
a et at ot 


SIL DDPA AAP DPE LP PPP PPA DAP PPP DPE PPPS SB SVT BEEP PLP EE 


ELSE 
BEGIN 
0¢ FREECOUN REECOUNT1 ¢ 
ae SUM BLKCFRER V COREVALLOCS 
oe ae SIGNAL (DBG$_INTMEMERR, 1, .BLKPTR); 
08 § END; 
09 0 
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; 210 1 4 

; 1} tg 2 : Go to the next sequential block in the memory area and loop. 

: ig 4 4 BLKPTR = .NEXTBLK; 

; 216 45 END; 

it if 

; i$ rk ! Check the validity of the terminator block at the end of the current 
: 8 rH memory pool area. 

; ; if -BLKPTR NEQ AREAPTRE-1]) + .AREAPTRE1) 

; é § SIGNAL (DBGS_INTMEMERR, 1, .BLKPTR); 

; 4 33 IF : ay as wT INELD ee FMEMSK_SENTINEL) OR 

3 5 § (NOT .BLKPTREF HER Vv THISAL 0C)) OR 

: 8 4 4 ' ( .BLKPTRLFMEMSV LENGTH NEDS 3 

; 8 59 SIGNAL(DBG$_INTMEMERR, 1, .BLKPTR); 

: 1 

: : 6 6¢ The whole area look good. Link to the next memory pool area and loop. 
: 7 0 AREAPTR = .AREAPTR(O); 

; 65 END; 

Bt 

: 3 8 ; Make sure the free-list List head was found in the memory pool. 

; +4 0 4 if NOT -LISTHEAD_FOUND THEN SIGNAL(DBGS_INTMEMERR, 1, .DBGSFREE_LIST); 

: 2461 7 

: 4 ig ' Now make a complete scan over the wonery pool free-list. Check each block 
; vb ie i on the List for consistency and check the integrity of the List itself. 
: 265 037 ECOUNT2 = 

> 266 0 3 BAEEOTR = DBGSFREE_LIST: 

3: 267 28 BLKPTR = .DBGSFREE_CISTCFMEMSL_FLINK); 

; 248 7 WHILE -BLKPTR NEQ [DBGSFREE_LIST DO 

3; 249 80 IN 

3 20 1 

: 3g 5 ! Make sure the top end of the free block is valid. 

; az 5 it ( BLKPTRCEFMEMSB_ att tne NEQ FMEMSK_SENTINEL) OR 

: 55 ({BLKPTR FMEMSV_ THISA OR 

3 28 4 (. BLKPTRCFMEMSL—BL INK UNEa -BACKPTR) 

; 28 Q SIGNAL (DBGS_INTMEMERR, 1, .BLKPTR); 

3 260 9 

3; 261 3 ' Make sure that the bottom end of the block is valid and consistent 
: 7 } with the top end. 

> 264 95 WEXTBLE = .BLKPTR + 4. BLKPTRCFMEMSV_LENGTH): 

: 265 96 IF CoNEXTBCREERERSS. SENTINEL] NeQ FMEMSK_SENTINEL) OR 

; 66 9 ( NEXTBLKCFMEMSV” PREVALLOC)) OR 
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RERRRRLKLLLLKLLLSELEL 
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ICRgciatQBAGOT ESL. O1 MEE etal 


14-Sep- 
= (.WEXTOLKCFRERSL _PREVLEN) NEQ .BLKPTRCFMEMSV_LENGTH]) 
SIGNAL (DBGS_INTMEMERR, 1, .BLKPTR); 


DEBUG. SR 


: This block looks good. Link to the next block on the List and loop. 


FREECOUNT2 = .FREECOUNT2 * 1; 
BACKPTR = .BLKPTR: 
BLKPTR = .BLKPTRCFMEMSL_FLINKI; 


' We are back at the free-list List head. Make sure its backward link 
! points to the last block we inspected. Also make sure that the number 
of free blocks came out the same in the memory-area and free-list scans. 


ir (.BLKPTRCFMEMSL_BLINK] NEQ ,BACKPTR) OR 


-FREECOUNT? NEO .FREECOUNT2) 
SIGNAL (DBGS_INTMEMERR, 1, .BLKPTR); 


! Check the AprmERORT { of the ‘“‘temporary’’ memory block chain. Hy through 
} the DBGSTEMP_MEMORY Li L 


at KADDR = .DBGSTEMP penony; 
WHILE .BLKADOR NEQ 0 D 


st (which is singly Linked) and check each block. 


TEMPBLK aorstrete 
BLKPTR. = “BLKADDRE=1 
Make sure the temporary block header looks correct. 
if (. TenPOLRCERERSS Sent inet) AY ‘mate _TEMPSENT) OR 
(NOT - TEMPBLKCFMEM$V_THISALLOC)) OR 
ex NOT ; TEMPBLK FMEMSV— ~PREVALLOE ) 
SIGNAL (DBGS_INTMEMERR, 1, .TEMPBLK); 
! Make sure the mere pool block header before that looks correct and 
} is consistent with the temporary block header. 
if ¢ -BLKPTREFRERSS, $ NTINEL NEQ_FMEMSK_SENTINEL) 
NOT .BLKPTR 0C)) 


(NOT .BLK OR 
(.BLKPTR pieaoee WLE CENT Lss . « TERPBLKEFRERSY LENGTH) + 2} OR 
(.BLKPTRCFMEMSV-LENGTH) GTR .TEMPBLKCFMEMSV_LENGTH) + 5) 


N 
SIGNAL (DBGS_INTMEMERR, 1, .TEMPBLK); 


Make sure the bottom end of the memory block looks allright too. 


WeNTeLK = .BLKPTR + 4*.BLKPTRCFMEMSV_LENGTH); 
IF (.NEXTBLKCFMEMSB_SENTINEL) NEQ FMEMSK SENTINEL) OR 


$3.1 


Page 
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bats ran te SP 9 oo or of 
(NOT .NEXTBLKCFMEMSV_PREVALLOC)) 


SIGNAL (DBGS_INTMEMERR, 1, .BLKPTR); 


eres 


This block looks good. Link to the next block and Loop. 
BLKADDR = .BLKADDR(O); 
END; 


MEUM ODODE 
WN —OOONAW 


The memory pool passes all tests. Return successfully to the caller. 
RETURN; 
END; 


= 


oO 
> 
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TITLE GETMEMORY 
IDENT \V04-000\ 


-PSECT DBGSOWN,NOEXE, PIC,2 
00000000 00000 DBGSFREE LIST: 
00000000 00004 DBGSTEMP_MEMORY: 
00000000 00008 DBGSTEMPREN POOL ID: 
0000¢ DBGSTEMPRER POOL STK: 
00000000 00070 FMEM_BLOCK_LIST: 
LONG 0 
-EXTRN DBGSNMAKE ARG VECT 
-EXTRN DBGSNMATCA, DBGSNSAVE DECIMAL_INTEGER 
-EXTRN DBGSRST_REMOVE, DBGSGV_CONTROL 
sEXTRN LRUMSLISTHEAD, RSTSREF "LIST 
-PSECT DBGSCODE,NOWRT, SHR, PIC.O 


03FC 00000 ENTRY p GSCHECK MEMORY, Save R2.R3,R4,R5,R6,R7.- ; 0227. 
9 ' €F 9€ MOVAB DBGSFREE_LIST, R9 : 
33 000000006 bp 3F 88005 MOVAS  PABSSTGHIAL RA 

7€ 0001 CLRQ  LISTHEAD FOUND : 0267. 

53 70 A p 01 MOVL § FMEM_BLOCK_LIST, AREAPTR ; $9 

0 16 18 BNEQ $ : 0270. 

0 3 1 BRW 6$ : 

52 08 A . 1B 2%: MOVAB 8(R3), BLKPTR : 0277 

0D é 7 € 1F BBS #23, (BLKPTR), 3$ : 0278 | 
é DD ; PUSHL 8 kPTR ; 
Q0028AF4 BF DD PUSHL #166644 ; 
4 j Fe CALLS #3, LIBSSIGNAL ; 

54 06 as C 3$: ADDL3 4 (AREAPTR), AREAPTR, R4 : 0279 
4 04 (2 SUBL2 #4, R4& ; 
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54 2 01 CMPL KPTR, Ré 
i BGE GU 5 
8F 03 =A ? cMPB (BLKPTR), #178 
a: Re fer 
00028AF4 BF DD PUSHL #166644 
68 FB af CALLS #3, L BSS1GNAL 
if EF 4$: EXTZv #0. @ CBLKPTR) RO 
5 624 DE 6 MOVAL (BLKPTRSCROJ, NEXTBLK 
be 1g E BBC #2e, (BL KPTR’ $ 
6 iH FO BBS * (NEXTBLKS, 118 
50 FC OAS D4} 5$: CPL -4(NEXTBLK), RO 
3 03 push. SLKPTR 
Q0028AF4 BF DD PUSHL #166644 
68 3 Fe 4 CALLS #3, LIBSSIGNAL 
6 p 6$: CPL KPTR, DBGSFREE_LIST 
65 #$ ig BBS #23, (NEXTBLK), 7$ 
52 DD PUSHL BLKPTR 
or DD PUSHL 
Q00028AF4 BF 0D PUSHL 
68 om, CALLS #3, LIBSSIGNAL 
D $ E 7$: BLBC = LISTHEAD_FOUND, 8$ 
DD PUSHL LKPTR 
1 0D PUSHL 
Q0028AFS BF OD PUSHL #166644 
B 3 F CALLS #3, LIBSSIGNAL 
6 of p 8$: ROVL #1. LISTHEAD_FOUND 
$3 D Ty INCL FREECOUNT 
65 17 € BBC #23, (NEXTBLK), 118 
52 0D 108 PUSHL BLKPTR 
DD PUSHL 
00028AF4 BF ODD PUSHL #166644 
68 FB : CALLS #3, LIBSSIGNAL 
52 0085 11$: MOVL $NEXTBLK, BLKPTR 
FF } y. BRW 4 
12% BEQL -«138 
bd PUSHL BLKPTR 
D0 PUSHL @ 
00028AF4 8F DD PUSHL #166644 
8 ; Fe CALLS @ LIBSSIGNAL 
F 03 A ? 13$: CAPS "tee #178 
62 1 ef BBC #22, CBLKPIR) 14$ 
16 Fe CMP2V #22, (BLKPTR), #1 
BEQL 
Dd 148: PUSHL BLKPTR 
DD PUSHL @ 
O0028AF 4 PUSH 


NW 009 
o 
o 


6644 
#3, LIBSSIGNAL 
15$: ROVL CAREAPTR) , AREAPTR 


ey Page 10 
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: = 38p- 1984 93:18:63 DEBUG. SRCTCE THEMORY.059 i 
TMEMORY BLBS = LISTHEAD_FOUND, 178 : 
et 56 «EB EF 168: PUSHL DOGSFREE LIST 
V i) 2 Dd 000Fe PUSHE a 7a 
o0028aF4 BF DD 4 CALLS r b 18SS J GNAL i 0376 
“ tbe * Datei | DBGHFAEE CST, RO ; 0378 
y 8 move OR ; | 
), BLKPTR ; 
; D BO 00107 pet seer, DBGSFREE_LIST 5 aces 
= ior’ Geor |B 8 : 
° 3 i I$ CHPG = $(BLKPTR), #1 t oss 
03 A BNEQ : PTR), 19% : 
a oA 13 Hi a StecKPThy BACKPTR ae 
06 $¢ 08 AS bt 00118 Seat 308 | 
PUSH : 
1 DD 001 3 PUSHL #166644 ; 0395 
1 « LIBSSIGNAL ; 
00028AF 4 er +4 a 8 CALLS an FF COLKP TA) «RO oe 
ie a Ef 01 5 oe val Create shart t o397 
50 62 18 art ans? cua 3 iS i 0397 
B2 BF 03 12 0013¢ BN #25. (NEXTBLK) | : 
iP £6 00 5 CHPL =A (NEXTBLK) » R ee 
6 $0 ae 91 axle BEQL 
0 50 FC BF os Boice 218: Pacha Sc aPre 
¢ 0 PUSHL : 
ee aor : 0405 
ooz8ars BF DD Bis CALLS #3, LIS8S1GNAL : Site 
68 ? 4 155 228 sour BLRPIR BACKPTR . : 0399 | 
$3 5 8 a ROVE iguarinl. Gunes : 0415, 
52 eM 4 B25 238: Pre BCSLKPIR), BACKPTR pee 
i 2 M 12 the CHPL fReecountt, FREECOUNT2 oats 
57 of Gores BEQL 25 : 
* 33 Dd OO1B 248: PUSH BLKPTR : 
4 PUSHL : 
atthe PUSHL #166644 aver 
00028AF 4 er bp 135 4 CALLS DagstEnP_RERORY. BLKADDR i 
68 1 : : 
«HE a 8 
54 01 i 17 278: ROVAB 4{R4) » TEMPBLK : O48 
53 04 As 3E 091 "  MOVAB SCTEMPOLED 180 
BF 5 AS #1 one? BNEG MPBLK), 288 ; bc§s 
Rae i rn as ee : 
63 19 £0 004 :  Pusm.  TERPBLK 
0D ° + BB Soise oe! putt 
; tb ge PUSHL #166644 + 0643 
4 8F DD O019A CALLS A} LIBSSIGNAL | 
P 00028AF 3 FB 149 at. 3(BLKPTR), @ 
82 oF ssl Madi 


vou-600"" 


1 


50 6 
50 62 
50 63 
50 62 
50 62 

0D 


3; Routine Size: 513 bytes, 


2 
, 
i 
16 

; F 
38 g 
16 0 
8 

1 

OO02BAF4 $} 

68 03 
1 00 
5 oe? 

B2 = =BF 03 =A 
04 

65 17 
52 

1 

O002B8AF4 oF 

68 03 
54 gf 
FF7C 
Routine Base: DBGSCODE + 


1h-$25-1986 02: 
12=8e871382 9S: 


30$: 


318: 


32$: 


33$: 
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18=380- 1984 93:18:63 DEBUG. SRCIGETME 
GLOBAL ROUTINE DBGSCOPY_MEMORY (SOURCE) = 


' FUNCTION 

This routine creates a new block of memory and copies the contents of a 

specified block to the new block. The new block is made large enough to 
hold the entire contents of the specified block=--the length of the spec- 
ified block is gotten from the block's control longword (FMEMSV_LENGTH). 
Note that the new block is a ‘‘permanent’’ memory block=-it is nof® put on 

the temporary block List. 


INPUTS 
SOURCE = A pointer to the memory block to be copied. This may be 
either a permanent or a temporary block. 


OUTPUTS 
Anew block is allocated and the contents of the SOURCE block is copied 
to the new block. The address of the new block is returned as 
the routine's value. 


BEGIN 
MAP 
SOURCE: REF FMEMSBLOCK; ! Pointer to allocated portion of the 
t memory block to be copied 
LOCAL 
LENGTH, ! The length of the source and target 


a) 
: blocks in longwords 
SRCBLK: REF FMEMSBLOCK, ' Pointer to source block control info 
TARGET; ! The address of the new memory block 


! Pick up the address of the source block's control information and check 
that it is a valid memory block (permanent or temporary). 


SRCBLK = SOURCECFMEMSA_HEADER);: 
IF “SRCBLETFRERSG, SENTINEL] NEQ FMEMSK_SENTI 
» SRCBLKCFMEMSB_ SENTINEL) NEQ FMEMSK-TEMPS 


SIGNAL (DBGS_INTMEMERR, 1, .SRCBLK); 


NEL AND 
ENT 


: Get the length of the source block, allocate the target block, copy the 
the contents from the source to the target, and return the target address. 


LENGTH = .SRCBLKCFMEMSV_LENGTH) - 1; 
TARGET = DBGSGET MEMORYT.LENGTH): 
CHSMOVE(4*.LENGTA, .SOURCE, . TARGET); 
RETURN . TARGET; 
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; 83 ¢ } GLOBAL ROUTINE DBGSCOPY_TEMPMEM(SOURCE) = 

3 35 § 1 ! FUNCTION 

; 398 7 ! This routine creates a new temporary block of memory and copies the con- 
; 399 8 1! tents of a specified block to that new block. The new temporary block 
; 400 5 1! is made large enough to hold the entire contents of the specified block 
: 401 550 1! =-the block’s length is gotten from FMEMSV_LENGTH. Since the new block 
$ re 2 1 : is a ‘‘temporary’’ block, it disappears at the end of the current command. 
3; 4046 B2 : 1 ! INPUTS 

; 405 0534 1! SOURCE = A pointer to the memory block to be copied. This may be 

3 $06 B2 5 1! either a permanent or a temporary block. 

; 40 5 $ 1! 

; 408 05 1 ! OUTPUTS 

; 409 0538 1! A temporary block is allocated and the contents of the SOURCE block is 
: 410 0539 1! copied to the Senger ety block. The address of the temporary 
3; «6411 0540 1! block is returned as the routine's value. 

3 elg 0541 1! 

3 «(41 O366 1 

3 416 054 BEGIN 

3; 415 0544 

; 416 0545 MAP 

s 417 0546 SOURCE: REF FMEMSBLOCK; ' Pointer to allocated portion of the 

; 418 0547 ! memory block to be copied 

3 619 0548 

3 239 0549 LOCAL 

: 421 0550 LENGTH, ! The Length of the source and target 

3 $$6 0551 ! blocks in longwords 

s 62 823g SRCBLK: REF FMEMSBLOCK, ! Pointer to source block control info 
: 424 055 TARGET; ! The address of the new memory block 

; 425 0554 

3; 4 $ 0555 

3 4 0556 

:; 428 0557 ! Pick up the address of the source block's control information and check 

; ri b2e5 } that it is a valid memory block (permanent or temporary). 

3; 431 0560 SRCBLK = SOURCECFMEMSA_HEADER]; 

3 $3 0561 IF .SRCBLKCFMEMSB_SENTINEL NEQ FMEMSK_SENTINEL AND 

3 $3? 0266 goRCBLK FMEMSB_SENTINEL] NEQ FMEMSK_TEMPSENT 

; 435 0564 SIGNAL (DBGS_INTMEMERR, 1, .SRCBLK); 

7. 

; 4 56 : Get the length of the source block, allocate the target block, copy the 

3 tis 228 the contents from the source to the target, and return the target address. 
: 461 0370 LENGTH = .SRCBLKCFMEMSV_LENGTH) - 1; 

: rk 571 TARGET = DBGSGET_TEMPMEA( LENGTH): 

: 46 378 CHSMOVE(4*.LENGTA, .SOURCE, . TARGET); 

3 6646 57 RETURN . TARGET; 

3; «4465 574 

3; 446 575 END; 
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14-Sep-19 DEBUG. MORY .832;1 
rf ! GLOBAL ROUTINE DBGSEXPAND_MEMORY(LENGTH) = 
8 1 ! FUNCTION 
579 1! This routine expands the free memory pool. To do so, it calls the 
580 1! SEXPREG systen Seryice fo get a@ new memory pool area at the end of PO 
581 1! space. This area is initialized to contain one big free block and a 
5 § one longword terminator block, after which the free block is Linked 
2 ! : into the memory pool free-List. 
03 > 3a This routine is called during the Pebuaner |. initialization phase and 
5 $ 1! in response to the ALLOCATE and SET MO LE/A LOCATE commands. It is 
é 1 3 never called automatically after DEBUG has given the user progres 
3 control unless the user has explicitly requested it (via the ALLOCATE 
589 1! command or qualifier). The reason is that memory expansions after the 
0590 1! user program has started can cause checkerboarding of DEBUG's and the 
0591 1! user program's memory, which may affect the user program's execution in 
0296 1! unpredictable ways. Such checkerboarding changes address relationships 
05935 1! in the user presres. which can change program behavior, and it makes it 
0594 1! much more Likely that the user program will overwrite part of DEBUG's 
0595 1! memory pool. These possibilities are particularly undesirable since 
0596 1! the user program is being debugged and can be presumed to have errors, 
£344 ' possibly including random addressing errors. 
0599 1! INPUTS 
0600 1! LENGTH = The number of longwords to be added to the free memory pool. 
ett : } This must be at least 4 and at most SFFFFF hex. 
0605 1 ! OUTPUTS 
06046 1! The new memory area is acquired and added to the memory pool free-list. 
+084 : : One of these two values is returned: 
0607 1! STSSK_SUCCESS == ALL went well and the memory is available. 
0608 1! STSSK_SEVERE <= The requestes memory could not be gotten 
0609 1! from SEXPREG. The memory pool was thus 
0610 1! not expanded. 
0611 1! 
get¢ 1 
1 BEGIN 
614 
15 LOCAL 
218 BACKPTR: REF FMEMSBLOCK, ' Pointer to previous free-list block 
yet ENDPTR: REF FMEMSBLOCK, ! Pointer to end of the memory pool area 
18 FORWPTR: REF FMEMSBLOCK, ' Pointer to the next free-list block 
1 FREEBLK: REF fet eee ' Pointer to the one big free block 
0 ME : VECTOR er ' Start and end addresses of new area 
1 MEMVECTOR: REF VECTOR LONG), ' Pointer to acquired meets area 
§ NUMLONGS, ' Number of Longuords actua \y gotten 
: from SEXPREG for free block 
4 NUMPAGES ' Number of pages to get from SEXPREG 
: STATUS: BLOCKL1, LONG); i Status code returned by SEXPREG 
; Check that the LENGTH parameter is in the valid range. 
1 If .LENGTH LSS 4 
2 THEN 


<i dil, 


ica 
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107398-1 382 93:98:63 DEBUG. SRCIG 
$SDBG_ERROR('GETMEMORY\DBGSEXPAND MEMORY") ; 
IF .LENGTH GTR &X'3FFFFF* THEN RETURN STSSK_SEVERE; 
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uw 


! Get the desired amount of memory from SEXPREG. Note that we request 
! three extra longwords for control information and the terminator block. 
} We also round up to the nearest page boundary. 


NUMPAGES = (.LENGTH + 3 + 127)/128; 
STATUS = SEXPREG(PAGCNT=.NUMPAGES, RE TADR=MEMBOUNDS) ; 


yond 


Seah a bb edh hb bhai ebb ehh hb dh adh ehh shh cb ehh dh “dh “Abode dh hb hh Al 


: Then return successful status. 


ENDPTR(FMEMSV_LENGTH) = 1; 
; FMEMSV-THISALLOC) = TRUE: 


ENDPTR " 
FMEMSV~PREVALLOC) = FALSE; 


ENDPTR 


Be3. 


3 3 

; oF 5 

: 805 $ 

: 510 

tg 

: 54 

$ 14 

3 319 : IF NO 

H 18 4 THE 

3 $1 5 BEGIN 

: i ry SIGNAL (DBG$_INSVIRMEM, .STATUS); 

; 51 RETURN STSSR_SEVERE; 

3 3 END; 

; 3 50 MEMVECTOR = -MEMBOUND S03; 

; Z 0652 NUMLONGS = (.MEMBOUNDSL1J = .MEMBOUNDS([O] + 1)/ZUPVAL - 3; 

: 525 065 

3 35 0654 ! We got the new memory pool area. Link this area into the singly Linked 
3 7 0655 ! List of memory pool areas and remember its byte length. Also set up the 
3 ; bees pointers to the one big free block and the terminator block. 

; 2 0638 REMVECTOREO) = .FMEM BLOCK_LIST: 

; 531 065 MEMVECTORC1) = (.NUMCONGS * 3)*XUPVAL; 

"SS ¢ 0 FMEM BLOCK _LIST = 5 olla ); 

. | 0661 FREEBLK = MEMVECTOR(E2); 

: ; ¢ Bees ENDPTR = MEMVECTORC.NUMLONGS + 2); 

; 537 5 : Set up the one big free block in the memory area. Note that we mark the 
:.> ! previous “‘block”’ as being allocated--this prevents any attempt to coalesce 
; 539 ! free blocks off the top of the memory area. Link the free block into the 
3 set : memory pool free-list. 

; 4g 0 FREEBLK(FMEMSV_LENGTH] = .NUMLONGS; 

; 54 71 FREEBLKLFMEMSV_THISALLOC) = FALSE; 

; 44 7 FREEBLK fa jas 3 Ma AA = LF 

: 4545 7 FREEBLKCFMEMSB SENTINEL) = FMEMSK SENTINEL; 

: 346 7% ENDPTRCFMEMSL_PREVLEN) = ; EREEBLECFRERSV_LENGTH]; 

3 : 9 omer = -DOGSFREE LISTCFRER LLFLINK); 

. s 3 

: rk a§ FREEBLK PMERSL FINE = JFORWPTR; 

; 550 7 FREEBLKCFMEMSL_ BLINK) = .BACKPTR; 

; 51 7 FORWPTRUFMEMSL_BLINK] = .FREEBLK; 

: 2 ? BACKPTRUFMEMSL_FLINK) = .FREEBLK; 

: 554 

3 335 5 ! Finally build the terminator block. This “‘block’’ is marked as allocated 
3 228 : ' so that we will not coalesce free blocks off the end of the memory area. 
: 55 

3 “ 

: 560 
3 61 
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; 90 ENDPTRCFMEMSB_SENTINEL] = FMEMSK_SENTINEL; 
; 691 RETURN STSSK_SUCCESS; ~ ~ 
; 564 036 
; 565 69 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


24 47 42 46 SC 59 52 4F 4D 465 4D 54 45 47 1B 00000 P.AAA: . ASCII <27>\GETMEMORY\<92>\DBGSEXPAND_MEMORY\ 
59 52 4F 4D 45 4D SF 44 4E 41 50 58 ig iit . 
.EXTRN SYSSEXPREG 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
003¢ 900 .ENTRY DBGSEXPAND_MEMORY, Save R2,R3,R4,R5 
55 000000006 00 9€ 0000 MOVAB LIBSSIGNAL; 
4 00000000' EF 9€ 0000 MOV FMEM_BLOCK.LIST, R4 
5€ 8 C2 0001 SUBL2 #8, 
04 04 AC D1 0001 CMPL LENGTH, #4 
11 18 0001 BGEG ~=Sé«éaTS 
00000000" EF 9F 00019 PUSHAB P.AAA 
1 OD O001F PUSHL 
00028362 8F DD 00021 PUSHL #164706 
5 03 FB 00027 CALLS #3, LIBSSIGNA 
OO3FFFFF F 04 a } 38 , 1$: bark ENGTH, #4194303 
50 04 ac 00000082 &F C1 000 ADDL3 #130, LENGTH, RO 
50 00000080 8F C6 0030 DIVL2 #128. NUMPAGES 
E 7C 00044 CLRO. = =( SPS 
08 AE OF 00046 PUSHAB MEMBOUNDS 
50 DD 00049 PUSHL  NUMPAGES 
000000006 00 4 FB 004 CALLS #4 SYSSEXPREG 
OF 0 €8 0005 BLBS STATUS, 3$ 
50 DD 0005 PUSHL ST 
00028093 8F DD 00057 PUSHL #163987 
65 02 FB 0005D CALLS #2, L 1BSS1GNAL 
50 04 00 9069 28: MOVL #4. R 
04 0006 RET 
50 6 09 0064 3$: MOVL_ MEMBOUNDS, MEMVECTOR 
51 04 AE b C3 00067 SUBL3 MEMBOUNDS, MEMBOUNDS+4, R1 
1 06 0006C INCL R 
51 04 C O6F DIVLZ . RI 
1 3 ¢ SUBLO #3, NUMLONGS 
60 4 : 074 VL MEM BLOCK LIST, (MEMVECTOR) 
04 Ad 1 2 077 ASHL a2 AUMLONGS, 4(MEMVECTOR) 
04 AO ¢ C orc ADDL2 #10, 4(MEMVECTOR) 
4 p MOVL MVECTOR, FMEM_BLOCK_LIST 
: 08 AO 9E 000 MOVAB BCR ), FREEBLK 
08 A041 DF MOVAL 8(MEMVECTOR) ONGS], ENDPTR 
62 16 1 F C SV. -NUMLONGS, #0, rte (FREEBLK) 
02 =A 4 F BA 1 BICB2 #64, 2(FREEBLK) 
0 A 8 F 8 96 B1SB Ars (FREEBLK) 
A B F OVB a- (FREEBLK) 
FC OB 62 16 0 EF 6 A EXT2V #0, #22, (FREEBLK), -4(ENDPTR) 
5 90 A& BO 0006 VL  DBGSFREE_LIST, RO 
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DO OOOA 
DO 0008 
* 
DO OOOBA 
FO 0008 
60 BF C 
80 BF BA 000 
82 BF 90 900¢ 
1 0 9000 
4 0000 


DBGSCODE + 0283 


4 02:47:25 AX-11 Bliss-32 v4.0-7 
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MOVL 4 (RO), FORWPTR 

MOVL  FORWPTR, 4(FREEBLK) 

MOVL BACKPTR, 8(FREEBLK) 

MOVL  FREEBLK, B(FORWPTR) 

MOVL  FREEBLK, 4(BACKPTR) 

INSV. #1. #0, #22. CENDPTR) 

BISB2 #64, 2¢ENDPfR) 

B1¢B igh, g (ENDPTR? 

MOVE off= (ENDPTR) 

OWL 1, RO 
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eee } GLOBAL ROUTINE DBGSFREE_MEM_LEFT = 
098 1 ! FUNCTION 
97 1! This routine returns the amount of free memory left in the free wonery 
698 1! pool. This is done by searching the entire free-list and adding up the 
44 : : sizes of all the free blocks. 
701 1°! INPUTS 
7 ¢ 1! NONE 
7 1! 
7 1 ! OUTPUTS 
8782 ! The amount of free memory left in longwords is returned as the value. 
0709 1 
0708 BEGIN 
0709 
0710 LOCAL 
0711 BLKPTR: REF FMEMSBLOCK, ! Pointer to the current free block 
at MEMLEFT; ! The amount of free memory in the pool 
O71 
oS : Search the free-list and add up the sizes of all the blocks. Then return. 
0718 MEMLEFT = 0; 
0719 BLKPTR = .DBGSFREE_LISTCFMEMSL_FLINK); 
4 , sa los NEQ -DBGSFREE_LIST 00 
8 § MEMLEFT = .MEMLEFT + .BLKPTRCFMEMSV_LENGTH); 
7 BLKPTR = .BLKPTRCFMEMSL_FLINK); 
0724 END; 
0725 
0726 RETURN .MEMLEFT; 
0727 
0728 END; 
000¢ 00000 .ENTRY DBGSFREE_MEM_LEFT, Save R2.R3 + 0694 
52 04 00002 CLRL MEMLEFT 3; 0718 | 
51 00000000" EF D0 00004 MOVL DBGSFREE LIST, R1 ; 0719. 
29 04 Al OD oe MOVL 4(R1), BCKPTR 3 
1 50 0 F 1$: CMPL BLKPTR, RI : 0720 
13 \¢ BEQL F 
60 16 EF 1 EXTZ #0, #22, (BLKPTR), R3 3; 0722 
04 A b 1 MOVL  4(BLKPTR), BLKPTR : 0723. 
gS BRB 1$ ; 0720. 
50 B0 23: MOVL MEMLEFT, RO 3; 07 4 
4 RET ; 07 


38 bytes, Routine Base: DBGSCODE + 0359 
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; 603 4 9 } GLOBAL ROUTINE DBGSGET_MEMORY(SIZE) = 

; 605 7 ? 1 ! FUNCTION 

3 @¢ 7 4 1! This routine allocates a memory block of a specified size and returns 

: 60 7 1! the block's address to the caller. The block contents is zeroed out 

3 one 734 «1! before being returned. This is the primary routine for getting memory 

3 ret f 5 : blocks from the free memory pool. 

> 611 7 7: The routine uses the First-Fit algorithm for finding a free memory 

; $i¢ 7 : 1! block. The free-list is thus searched until a free block which is 

; 61 7 1: large enough is encountered. That block is then split into two pyeces. 
; 614 740 1! one to be allocated to the caller and one to remain on the free list. 

; 615 741 #1! This splitting does not occur unless the remainder is large enough to 

3 $18 a : be a free block (four longwords minimum). 

; 618 744 1! If no free block of adequate size is found, an attempt is made to remove 
; 619 745 1! the Run-Time syqbot Table (RST) of the Least Recently Used module. 

; 630 746 1! this succeeds (i.e., if there is such a module and it's not the only RST 
; 621 0747 1! module), the free-list search is tried again. This is repeated until 

3 6 ¢ Bree 1! there are no more modules to be released except the Most Recently Used 

s 6 749 1! one. for this reason, the Debugger should never run out of free memory 
; ? : Bpay : under normal circumstances--the used memory is instead recycled. 

3; 626 8726 1! However, if a free block of adequate size still cannot be found, an 

3 Ger 0755 1! error is signalled unless a second parameter is presens If a second 

; 628 0754 1! parameter is present (e.g., ADDR = DBGSGET_MEMORY(.SIZE, 0);)., a zero 

; 629 0755 1! is returned as the routine value. 

3 6 o728 1! 

; $3) 0757 1 =! INPUTS 

3; 6 § te 1! SIZE - The size of the desired memory block in longwords. This is 

: $3? 2594 ; } is the number of longwords to be allocated. 

3; 635 0761 1! An optional second parameter specifies that a zero should be returned 

3; 636 $766 7! if no block can be found to accommodate the request. e 

3; 637 0765 1! actual value of the parameter is not significant. If this 

; O38 3708 ! parameter is omitted, an error is signalled. 

; 640 D766 1 ! OUTPUTS 

3 641 870 1! A memory block of the desired size is allocated and its address is . 
3 O68 768 1! returned as the routine's value. If a second parameter is 

; 64 769 1! specified and no block is found, zero is returned. 

3 644 770 1! 

3; 645 771 ~«#1 

; 66 ak BEGIN 

; 64 77 

; 668 774 BUILTIN 

3 4 Ae ACTUALCOUNT; ! Actual number of calling parameters 

3; ©6651 aS LOCAL 

3 636 44 | BACKPTR: REF FMEMSBLOCK, ' Pointer to previous block on free-List 
s 63 77 BLKPTR: REF FMEMSBLOCK, ' Pointer to the current memory block 

3; 654 7 FORWPTR: REF FMEMSBLOCK, ' Pointer to the next block on free-list 
; 655 781 FREEBLK: REF FMEMSBLOCK, ! Pointer to free block split off from 

3 636 7 § ‘ the allocated bloc 

3; 65 7 LENGTH, ! The Length of the allocated block 

; 658 7 : including the control longqword 

; 659 785 LRUMPTR: REF LRUMSENTRY, ' Pointer to the Least Recently Used 
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' Module (LRUM) table en 


! r 
NEXTBLK: REF FMEMSBLOCK; : renee to the next sequena tal block 
: n the memory pool 


Make sure the requested block size is oer seety positive and not too large. 
If less than three longwords are requested, allocate three longwords so 
that the block can be released to give a four longword free block. 

SIZE LEQ 0 


aia Troe itmeteatlalieamatt titanate 
SIZE GTR 1 


ee 

HEN 

HEN 

enc EDS -ERROR ("GE TMEMORY \DBGSGET MEMORY"; 
F 


NGTH = .SIZ 


' 
i 
i 
I 
T 
1 
T 
L ; 
IF .LENGTH LSS 4 THEN LENGTH = 4; 


! Loop through the entire free-list, searching for a block large enough to 
: allocate to the caller. 


BLKPTR = ,DBGSFREE_LISTCFMEMSL_FLINK); 
WHILE, TRUE DO 


Do a few checks on the integrity of the free-Llist. 


if (.BLKPTREFMEMSB_SENTINEL) NEQ FMEMSK_SENTINEL) OR 
(:BLKPTREFMEMSV~THISALLOCJ) 


SIGNAL (DBGS_INTMEMERR, 1, .BLKPTR); 


: If the current block is large enough, allocate all or part of it. 
if ,BLKPTRCFMEMSV_LENGTH] GEQ .LENGTH 
BEGIN 


: This block is large enough. Unlink it from the free-list. 


FORWPTR = -BLKPTREFMEMSL_FLINK ; 
BACKPTR = .BLKPTRCFMEMSL_BLINK): 
FORWPTRCFMEMSL_BLINK) = .BACKPTR; 
BACKPTREFMEMSL-FLINK) = .FORWPTR; 


i] 
: that block is not large enough to be split up, then 

' we want to return “‘no free storage’. This is because we 
: cannot allocate the Last block on the free List (there 
S$ no way to unlink it from the free list). 
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IF (.FORWPTR EQL .BLKPTR) AND 
~BACKPTR EQL .BLKPTR) AND 
(.BLKPTRCFMEMSV_LENGTH] LSS .LENGTH + 4) 


EXITLOOP; 
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! If the block is large enough to accommodate the request, one 
i control longword, and a four longword free block, split it up. 
: Put the free portion of the block back on the free-List. 


if; BLKPTRCFMENSV_ LENGTH] GEQ .LENGTH + 4 


EBLK = mensy LE + 4*. LENGTH 
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; FREEBLKCF ENGTH] = -BLKPTREFMENSV LENGTH] = .LENGTH; 

3 FREEBLK FRERSV~ op uioAtL og) = LSE; 

HY FREEBLK FMEMSB_SENTIN E = EER SENTINEL; 

; FREEBLKCFMEMSL_-FLINK] = .FORWPT 

; 736 FRE FMEMSL-BLINK) = *BACKPTR: 

3 HH FORWPTREFMEMSL_BLINK] = -FREEBLK; 

3 8 0864 eects FMEMSL perme = .FREEBLK 

; 739 0865 NEXTBLK = .FREEBLK + 4*.FREEBL Ktin MSV_LENGTH); 

; 740 866 NEXTBLKCFMEMSL PREVLEN N] =  FREEBLK FMEMSV_LENGTH); 

3 741 086 BLKPTRCFMEMSV_CENGTH) = .LENGTH; 

3; 74 868 END; 

; 74 869 

> 744 0870 

3; «745 0871 ! Mark the block as being allocated, zero it out, and return its 
3 ue B37 address to the caller. 

; 748 0874 BLKPTRLFMEMSY THISALL OC) = TRUE; 

3 «749 0875 NEXTBLK = .BLRPTR + 4*.B8 KPTR FREMSV LENGTH); 

; 750 087 NEXTBLKCFMER V PR EVALLOC U 

s 351 087 CHSFILL(O, 4*(.BLKPTR FMENSV LENGTH) - 1), BLKPTRCFMEMSA_ALLOCBLK)); 
: P36 0878 RETURN BLKPTRLFMEMSA ALLOCBLR 

; 7 879 END; 

: F3 Bat 

: 756 88 ' The block was not Loree enough=-Link on to the next free-list entry. 
: a4 088 ; If this puts us past the end of the free-lList exit the search loop. 
3; 759 5 BLKPTR = .BLKPTRCFMEMSL _FLINK) 

; 760 IF BLKPTR EQL .DBGSFREE_LIST THEN EXITLOOP; 

: #8 5 

3: 764 ! We could not rae a block large enough for the request. if . we. 

: 765 91 ! in a state where it is OK to expand the memory pool (eithe 

3 766 9 ' program has not yet run or the user has requested SET MODULESALLOCATE) 
s 9 ' then expand Hy 5 menery pool and try again. We expand by the desired 

3 ye8 9 Length plus 8000 Longwords. 

: 770 it ‘DBoscy CONTROLCDBGSY_CONTROL_ALLOCATE) OR 

; 4A 39 -DBGSGv_ CONTROL EDBGSV. CORTROL _URUN]) 

; 77 39 BEGIN 
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; IF DBGSEXPAND_MEMORY(.LENGTH + 8000) 
; 775 901 THEN 
: 77 9 : RETURN DBGSGET_MEMORY(.SIZE); 
: 77 9 END; 
CR, 904 
: 77 905 
; 780 90 ! We could not find a block large enough for the request. If there is no 
; 781 90 ! second parameter, signal the error. Otherwise return zero as the block 
3 e i address. 
: 784 910 if ACTUALCOUNT() EQL 1 THEN SIGNAL(DBG$_NOFREE); 
; 18 sit RETURN 0; % 
. alg 
: 787 091 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
26 47 42 46 SC 59 52 4F 4D 45 4D 45 47 18 QOOIC P.AAB: .ASCII <24>\GETMEMORY\<92>\DBGSGET_MEMORY\ : 
59 32 4F 4D 45 4D St 54 45 47 000 : 
24 47 42 44 SC 59 52 4F 4D 45 4D 54 45 47 18 00035 P.AAC: .ASCII <24>\GETMEMORY\<92>\DBGSGET_MEMORY\ : 
59 52 GF 4D 45 4D SF 54 45 47 00044 : 
-PSECT DBGSCODE,NOWRT, SHR, PIC,O 
OFFC 00000 .ENTRY DBGSGET MEMORY, Save R2,R3,R4,R5,R6,R7,RB,- ; 0729 
04 ag DS 0000 TSTL = SIZE ; 0796 
15 14 0000 BGTR 1$ : 
00000000' Ff 9F 00007 PUSHAB P.AAB : 0798 
1 DD 00000 PUSHL : 
00028362 8F DD 0000F PUSHL #164706 ; 
000000006 00 03 FB 00015 CALLS #3 LIBSS1GNAL : 
00003680 8F 04 aC D1 O001C 18 CMPL SIZE, #16000 : 0799 
1§ 15 00024 BLEQ ; 
00000000" EF 9F 00026 PUSHAB P.AAC : 0801 
1 Dd 0002C PUSHL @# : 
00028362 8F DD 0002E PUSHL 706 : 
000000006 00 3 FB CALLS #3, LIBSSIGNAL : 
56 04 AC 1 ¢ 28: ADDL 1, SIZE, LENGTH : 080 
04 é D1} CMPL TH, #4 : 080 
8GEO F 
4 0 4 MOVL #4, LENGTH : 
00000000" EF D 48 3S: MOVL ODBGSFREE LIST, RO : 0809 
4 AQ p f MOVL (RO) KPTR ; 
B2 «BF 3 i : 48: CPB (BLKPTR), #178 > 0816 
1 67 £ BBC #22, (BLKPTR), 6% + 0817 
59 DD 5$ PUSHL BLKPTR : 0819 
1 DD PUSHL : 
O0028AF4 BF OD PUSHL #166644 : 
000000006 90 iB CALLS #3, L 188S1GNAL : 
56 67 4 FD f 68: cHP?V ’ ’ #22, (BLKPTR), LENGTH > 0824 
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1e-83p-1986 95:10:61 — EDEauG. SacSeeTRENGRY 643, 1 
GE TMEMORY ~~ 
voorb00 0089 31 00076 ROVO —CBLKPTR), FORMPTR : 0833 
04 "A? 7 doors 78: VL BACKPTR, BC FORWPTR) : 0854 
33 A 00 00070 ROVE —FORUPIR, &(BACKPIRD : Oaas: 
Oe AA 39 o0 H CMPL - FORWPTR; BLKPTR » 
57 10 12 00088 EMPL gACKPTR, BLKPTR ' heal 
57 D BNEQ ' 
50 0 fe : 3 pb we #22, (BLKPTRY, RO pl 
7 16 G 9 BLSS : 
os : 50 04 eb 35 pant CMPIV Ho, #22, (BLKPTR), RO ‘9857 
? 16 9 QOOA BLSS R)CLENGTH], FREEBLK : 0858 
s : ott DE O00A5 EXTIY #05 #2e, CBLRPTAS,, RO 
67 ‘6 na SUBL? LENGTH. #92, (FREEBLK) -~ 
“ee OR ie 
va 02 8 a3 0 0008 MOVa —-FORWBTA CIFRECOLK) : O86 
a§ hs “ 59 7D 000C MOVL -FREEBLE, S(FORUPTRD > 0864 | 
04 AB DO 000C4 Ove OBREEEER’ Stoccepias ; 0865 
Ue 38 DO Oo0Ce EXYoY BOT abe. CFREERCLD. RO | 
- * -000C¢ EXT2vV # (CRO, NEXTBLK : 0866 
” - i “the = a ea t) 
FC AB 0009 INSV LEN KPTR) : 0875 
7 16 00 40 BF 88 ODE 9s B1SB2 #64, 3 te - ae 
6 02 A? 00 EF O00E NOVA, CBCKPTASCACT™ urxfore ; 0876 
50 67 16 6740 DE O00E8 61382 #128, 2(NEXTBLK) : 087? 
ee 06 5¢ Q00F6 MOVCS #0, (SP), #0, RO, ; 0878 
a * Oa a} 9E OOOFB MOVAB = 4(BLKPTR), RO : osss 
i Of Baia) ROVL —4(BLKPTR), BLKPTR : 0886 
57 m8 ON Botos 8! EmptLEPIRL DSGSFREE LIST Reger 
00000000° éF 05. 93 Oo100 Beat 118 : 0896 
FOO 95 Otte 118: FS¥B  aGSGV_CONTROL cs 
a os 118 as ie DBGSGY CONTROL, 138 : 9500 
T : 
oe wats Hit. Bw Betti F sag 
FDD9 «CF of ES 00198 a ; 
" 04 at +4 ! ‘ CALLS i. DBGSGET_MEMORY * 9910 
FECA CF ; tt oe (AP), a1 ; 
” D 12 001% Bea recess 
PUSHL © 11 
0¢ 09 10028332 BF rB 149 vas: FARES. A LIBSSIGNAL : 091} 
000006 14 
+ © be dolee RET 
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H 788 aie ! GLOBAL ROUTINE DBGSGET_TEMPMEM(LENGTH) = 
; 791 218 1 ! FUNCTION 
; 79 9i7 1! This routine allocates a ‘‘temporary’’ memory block from the memory pool 
; 79 B318 1! and returns its address. A ‘‘temporary’’ block is a memory block which 
; 794 0919 1! automatically disappears the next time DBGSREL_TEMPMEM is called, norm- 
; 795 83 > Ff ally at the end of the current command. The advantage of temporary 
; 796 4a B blocks is that a do not have to be explicitly released to the memory 
; Leds 84 ¢ : pool--one call on DBGSREL_TEMPMEM releases all temporary blocks. 
; 799 89 ®* 1 ALL Ronporery memory blocks are put on the singly Linked list pointed 
: 500 0925 1! to by DBGSTEMP_MEMORY. To accommodate this Link and a second controi 
; 801 09 $ 1} word with the Block's length and a sentinel value, two extra longwords 
; 80 09 1! are needed. 
; 80 0928 1! 
; 804 0929 1 ! INPUTS 
3 Bae Boa9 : LENGTH = The desired Length of the temporary block in longwords. 
; 807 $338 1 ! OUTPUTS 
; 808 09 1! The requested block is allocated and put on the temporary memory List. 
; 809 0934 1! The address of the allocated block is returned as the rout- 
; 810 0935 1! ine's value. 
> 811 0936 1! 
3 aig 0937 1 
3s §I 0938 BEGIN 
3 «814 0939 
; 815 0940 LOCAL ; 
> 816 0941 BLKADDR: REF VECTORC,LONG), ! Pointer to the block allocated by 
; 817 0942 2 : routine DBGSGET_MEMORY 
; 818 0943 2 BLKPTR: REF FMEMSBLOCK; ' Pointer to the temporary block's own 
; 819 0944 2 : control longword 
; 820 0945 
; 821 094 
; ase 094 ; 
; Be 0948 2 ! Allocate a memory block of the desired size plus two longwords. Link this 
: 824 0949 ' block into the temporary block List i Longword 0, fill some control 
3 $$? 3330 information into longword 1, and return the address of longword 2. 
; 859 944 BLKADDR = DBGSGET_MEMORY(.LENGTH + 2); 
; 828 095 BLKADDR(O) = .DBGSTEMP_MEMORY; 
; 809 0954 DBGSTEMP_MEMORY = ,BLKADDR; 
3 : 0955 BLKPTR = BLKADDR(1); 
3; 831 0956 BLKPTRCFMEMSV_LENGTH) = .LENGTH + 1; 
3 3 944 BLKPTREFMEMSV_THISALLOC) = TRUE; 
: 958 BLKPTRUFMEMSV_PREVALLOCJ = TRUE; 
; 834 B22) BLKPTRCFMEMSB_SENTINEL) = FMEMSK_TEMPSENT; 
; 835 960 RETURN BLKPTREFMEMSA_ALLOCBLK); 
; 836 0961 
; 837 0962 1 END; 
$2 00000000" EF” 9 00003 HOVAR. DBCSTERP MEMORY, ROS bak: 
7E AC 65 ef $605 ADDL oe LENGTH, (SP) ; 0952 
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; te st ! GLOBAL ROUTINE DBGSINIT_MEMORY: NOVALUE = 

; Be) 965 1 ! FUNCTION 

> «84 208 1: This routine initializes the free memory pool from which DBGSGET_MEMORY 
; 84 967 1! allocates sonore blocks. This is done by getting space either up in 

; 8446 B08 1! high Pl space (for a normal or a testable ebugger? or from SEXPREG 

3 Bt? 1! (for a Super-Debugger). The free memory pool is initialized to have a 
3 $ 970 1! free-list List head and one big free memory block from which space can 
3 ote 44 : later be allocated. 

; 4849 $398 1! Note that the memory pool can be expanded later by cails on the routine 
; $20 Bare 1! DBGSEXPAND_MEMORY. 

; 851 975 1! 

3 S26 0976 1°! INPUTS 

; 8 0977 1! NONE 

; 854 0978 1! 

$s 839 0979 1 ! OUTPUTS 

; 856 0980 1! NONE 

; 857 0981 1! 

; 858 0982 1 

; 859 098 BEGIN 

; 860 098 

; 861 0985 LOCAL 

3 B6¢ 09 ENDPTR: REF FMEMSBLOCK, ! Pointer to the end of memory pool area 
; 86 0987 FREEBLK: REF FMEMSBLOCK, ! Pointer to one big free block in pool 
3; 864 0988 LENGTH ' Longword length of memory pool area 
; 865 0989 LISTHEAD: REF FMEMSBLOCK, i Pointer to the free-list List head 

; 866 0990 NUMBYT ' Number of bytes to get from SEXPREG 
3; 867 0991 MEMBOUNDS: VECTOR[2, LONG) ! Start and end addresses of new area 
; 868 9444 MEMVECTOR: REF VECTORL,LONG], ! Pointer to acquired memory pool area 
3; 869 099 NUMPAGES, ' Number of pages to get from SEXPREG 
3 the aay: STATUS: BLOCKC1, LONG); ! Status code from SCRETVA or SEXPREG 
: are 0996 

3; 87 0997 

3; 874 0998 ! If this is a normal Debugger or a Testable Debugger, we allocate the 

: 875 0999 ! initial chunk of aonery pool area up in “- user memory (P1 space). 

; a78 1300 This is done through the Create Virtual Address Space system service. 

; 878 4 IF NOT .DBGSGV_CONTROLCDBG$V_CONTROL_SDBG) 

3 $84 100 THEN 

; 880 1004 BEGIN 

; 881 1005 MEMBOUNDS 9 = %X"7FFFOOO0'; 

; HY 1908 MEMBOUNDS[1J = ZX'7FFFFFFF'; 

; 100 STATUS = CRETVA(INADR=MEMBOUNDS , RE TADR=MEMBOUNDS) ; 

3; 884 1008 IF NOT .STATUS 

; 885 1009 

; t] 1010 4 BEGIN 

3 ae 1011 4 STATUSCSTS$V_SEVERITY] = STSSK_SEVERE; 

; 888 1 \¢ 4 SIGNAL(.STATOS); 

: ra 101 END; 

3; 890 1014 

; «891 1015 END 

. et 

: 894 1018 : if this is a Super-Debugger, we get the initial chunk of memory from the 
; 895 1019 ! SEXPREG system service. We cannot touch the Pl-space area because it is 
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3 38 10 9 : used by the Testable Debugger that the Super-Debugger is debugging. 

; 898 1 § ELSE 

; 899 1 BEGIN 

> 900 1024 YTES = 65536; 

; 901 1025 NUMPAGES = .NUMBYTES/512; 

3 308 1 § STATUS = SEXPREG(PAGCNT=.NUMPAGES, RETADR=MEMBOUNDS) ; 

; 90 10 F NOT .STATUS THEN SIGNAL(.STATUS); 

; i : 8 END; 

3 208 19 0 ! Now initialize the memory pool area. The first longword is a forward Link 
> 90 18 1 ! to the next memory pool area--for this initial area this field is always 
; 908 1 § ! zero. The second longword contains the byte length of this area. Long- 
; 909 10 ! words 2 = 5 then contain the free-list List head. The rest of the area 
> 910 1034 ! from longword 6 through the next to last longword constitutes a big free 
; 911 1035 ! block available for allocation. Finally, the Last longword is the termi- 
3 aig + § nator block for this memory pool area. 

; 914 1038 MEMVECTOR = remmoest ee: 

; 915 1039 LENGTH = (,MEMBOUNDS([1J = .MEMBOUNDS(O] + 1)/ZUPVAL; 

: 916 1040 MEMVECTOR[O) = 0; 

3; OV" 1%) MEMVECTORL1) = .LENGTH*ZUPVAL; 

; 918 1 ¢ LISTHEAD = MEMVECTOR(2); 

: 919 104 FREEBLK = MEMVECTOR(6); 

: 920 1044 ENDPTR = MEMVECTORC.LENGTH = 1); 

3 92) 1045 

eS ¢ Hr 

3 : Z ieee Set up the free-list List head. 

3 Veo 1049 LISTHEADCFMEMSV_LENGTH]) = 4; 

; 926 1050 LISTHEADLFMEMSV_THISALLOC) = FALSE; 

: 927 1051 LISTHEADCFMEMSV_PREVALLOC) = TRUE; 

: 928 1936 LISTHEADCFMEMSB_SENTINELJ = FMEMSK_SENTINEL; 

: 929 105 LISTHEADCFMEMSL_FLINK) = .FREEBLK; 

3 9 1054 pS TNe ne FMEMSL_BLINK) = .FREEBLK; 

; 931 1055 FREEBLKCFMEMSL_PREVLEN) = 4; 

: 338 1089 

; 9 1058 ' Set up the one big free block in the initial memory pool. Note that we 
; 935 1059 ! claim that the List Head is allocated--this prevents the List Head from 
3 338 1969 being coalesced with the following memory block by DBGSREL_MEMORY. 

3 4 1089 FREEBLKCFMEMSV_LENGTH) = .LENGTH = 7; 

: 939 1 FREEBLK pmensv.THISALLOC = FALSE; 

; 940 1064 FREEBLKLFME Barden tg! = Ua # 

3 (941 1065 FREEBLKLFMEMSB_SENTINEL) = FMEMSK_SENTINEL; 

3 ae 1 FREEBLK Aa fae = .LISTHEAD; 

; 94 1 FREEBLKLFME BLINK) = .LISTHEAD: 

; 966 ! ENDPTRCFMEMSL_PREVLEN) = .FREEBLKCFMEMSV_LENGTH); 

: 9% 1070 

3 909 1071 ' Set up the “allocated” terminator block at the end of the menery pool 

3 ase : % } area to prevent blocks from being coalesced beyond the end of the area. 
; 950 1074 ENDPTR FMENSV LENGTH) 21; 

3; «6951 1075 ENDPTRUFMEMSV_THISALLOC) = TRUE; 

> 952 1076 ENDPTREFMEMSV-PREVALLOC) = FALSE; 
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! Set up the two OWN pointers we need to maintain. One pqiate the the List 
of memory pool areas and the other points to the free-list. Then return. 


FMEM_BLOCK_LIST = MEMVECTORCO); 
poost GSFR se ULTST = .LISTHEAD; 


END; 
EXTRN SYSSCRETVA 
003¢ 000 ENTRY D G6SINIT _MEMORY, Save R2,R3,R4,R5 
3 8 C2 0000 L2 
28 000000006 0 1 £0 0000 BBS bacsey CONTROL, 1$ 
6E 7FFFOOOO 8F 00 0000 MOVL am 418112, MEMBOUNDS 
04 AE 7FFFFFFF 8F D 9014 MOVL #214748 647, MEMBOUNDS+4 
E b4 O1C CLRL 
04 AE 9F OOOTE PUSH nEMBOUNDS 
08 AE 9F 00021 PUSHAB Nis 
000000006 90 : FB 900 4 CALLS ‘ ttt RETVA 
0 £8 00028 BLBS es 
03 00 4 FO 900 ; INSV 4. #0. #3, STATUS 
0 11 00 BRB 
50 00010000 =F 00 0035 1$ MOVL i $5536, NUMBYTES 
51 50 00000200 =F ¢ 003¢ DIVL3 ; NUMBYTES, NUMPAGES 
E 7C 00044 CLRO 
08 AE 9F 00046 PUSHAB «ae 
51 DD 00049 PUSHL  NUMPAGES 
000000006 00 04 FB 004 CALLS #4 prSySSEuPREG 
09 50 €8 0005 BLBS STA 
50 DD 00055 2s PUSHL § 
000000006 00 01 FB 00057 CALLS #1, LIBSSIGNA 
51 6— D OS 3$ MOVL. _MEMBOUNDS, MEV ECTO 
50 04 AE of ¢ 006 SUBL3 ni MBOUNDS, MEMBOUNDS +4, RO 
53 50 04 bg 0 DIVL3 RO LENGTH 
61 be 06C CLRL tnéme ECTOR 
Al 53 é 8 906 ASHL = #2 VENern. 4(MEMVECTOR) 
38 98 Al 9€ MOVAB 8(R1), LISTHEAD 
18 Al 9E 0007 MOVAB 24(R1$, FREEBLK 
54 FC A143 OD 7B MOVAL =4(ME VECTOR) LENGTH], ENDPTR 
16 0 4 Ff INSV. #4 a9 #22, (LISTHEAD) 
A 40 8F BA BICB2 #64, 2¢LISTHEAD) 
A 80 F A B1SB wich. g(LISTHEAD) 
h B F F MOVBoff= (LISTHEAD) 
‘or ; D MOVL  FREEBLK, 4(LISTHEAD) 
8 A D 98 MOVL FREEBLK 8(LISTHEAD) 
FC OA 04 p 9 MOVL #4, -4(FREEBLK) 
5 9 A} F A MOVAB -7(R3), R 
16 0 F AG INSV. RS a9 #22, (FREEBLK) 
02 A 40 F BA 000A9 BICB Hel (FREEBLK) 
A 8 F 88 OOOAE BISB2 #128, 2(FREEBLK) 
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at 12-38 er 95:43 ‘63 Pru. GRCTEETHEMORY 03551 ° ATs; 
3 OA 82 ; MOVE #-78, 3(FR EBLK) : 1065. 
<a MOVL LISTHEAD, 4(FREEBLK) : 14 6 
8 A nOvL L ; ; AD, 8(FREEBLK) t 1067) 
FC AG 60 1 EXTZV #22" CENor -4(ENDPTR) > 1068. 
64 16 INSV ef 2, (ENDPTR) + 1074. 
B1SB me Pfr) + 1075 | 
BICB iy, Ati ENDPTR) :1 1 
MOVB t 1077. 
A MOVL a6, SUEN OF MEN BLOCK_LIST + 1083 | 
1 MOVL §LISTHEAD, DBGSFREE_LIST + 1084) 
4 OO00E8 RET > 1087) 
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GLOBAL ROUTINE DBGSNPARSE ALLOCATE (INPUT_DESC, VERB_NODE, MESSAGE _VECT) = 
FUNCTION 
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Parses the ALLOCATE command. The ‘‘ALLOCATE’’ has already been 
recognized by the top-level parse routine. This routine picks 
vp the integer argument and constructs a command execution tree. 
The free has the verb node for ALLOCATE, and a noun node with 


the integer argument. 
INPUTS 
INPUT _DESC - A string descriptor for the remaining command Line 
VERB_RODE - The already existing verb node. 
MESSAGE _VECT - The address of a message argument vector. 
OUTPUTS 


The return value is one of: 
STSSK_SUCTESS = Success. A command execution tree was constructed. 
STSSK_SEVERE - Failure. An error message vector is constructed. 
BEGIN 
MAP 
INPUT DESC : REF DBGS$STG_DESC 
VERB_NODE : REF DBGSVERB_NODE; 


BIND 
DBGSCS_CR = UPLIT BYTE (1, DBGSK_CAR_RETURN) ; 


LOCAL 
NOUN_NODE: REF DBGSNOUN_NODE; ! Pointer to a noun node 


Check for end-of-line. This is an error. 

LF j,INPUT_DESC CDSCS$W_LENGTH) EQL 0 
BEGIN 
-MESSAGE_VECT = DBGSNMAKE_ARG_VECT (DBG$_NEEDMORE); 
RETURN STS$K_SEVERE; 

If DBGSNMATCH (, INPUT_DESC, DBGSCS_CR, 1) 


BEGIN 
-MESSAGE VECT = DBGSNMAKE_ARG_VECT (DBGS$_NEEDMORE) ; 
om STS$K_SEVERE; 


: Create and Link a noun node. 


NOUN_NODE = DBGSGET_TEMPMEM(DBG$K_NOUN_NOD 
VERB-NODE COBGSL_VERB_OBJECT_PTRJ~= .NOUN 


: Pick up the integer argument. 

if NOT DBGSNSAVE DECIMAL INTEGER (.INPUT_DESC, 
NODE CDBG$L_NOUR_VALUE), 

THEN MESSAGE VECT) 


E_SIZE); 
NODE; 


GE TMEMORY .B32;1 


poo 


14 
1ecbepctage (a:4z: 
RETURN STSSK_SEVERE; 
Return success. 
RETURN STS$K_SUCCESS; 
END; 


-PSECT 
OD 01 QO04E P.AAD: .BYTE 
DBGSCS_CR= 


»PSECT 


[=] 
So 


Oovovoomnoo°T7T970 79-9 TOMO OC -@aIoo 


52 04 


oO 
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00000000' 
000000006 9 
00028000 
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vm 

cr 
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000000006 00 
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000000006 00 
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; Routine Size: 89 bytes, Routine Base: DBGSCODE + 05E5 


83 DEBUG. Bae (ie? AEMORY.. “Bi; 31 


DBGSPLIT,NOWRT, SHR, PIC,0 
1, 13 
P.AAD 


DBGSCODE.NOWRT, SHR, PIC,0 


DBGSNPARSE_ALLOCATE, Save R2 
INBUT_DESC; R 


#1 
mt 
#3, DBGSNMATCH 


ibs 48 
DBGSNMAKE_ARG_VECT 
a0: @MeE SSAGE_VECT™ 


ry 

#1, DBGSGET_TEMPMEM 

VERB _NODE, R1 
NOUN“NODE, 8(R1) 

MESSAGE vecT 

" UN_NOBE 


#3, DBGSNSAVE _DECIMAL_INTEGER 
RO, 4$ 
#4, RO 


#1, RO 


a8 
3 
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GLOBAL ROUTINE DBGSNEXECUTE_ALLOCATE (VERB_NODE, MESSAGE_VECT) = 


0 
031 ; 
¢ ' FUNCTION 
This routine executes the ALLOCATE command. 
035 i INPUTS 
° VERB_NODE - — thas roy Be verb that is the start of the command 
: cution tree 
Oss MESSAGE _VECT - the address of the error message vector. 
i QUTPUTS 
‘ The return code is one of: 
: STSSK_SUCCESS = Success. Memory was expanded. 
STS$K_SEVERE . Failure. A message argument vector is constructed 
BEGIN 
P 
VERB_NODE : REF DBGSVERB_NODE; 
LOCAL 
NOUN_NODE: REF DBGSNOUN_NODE, ! A pointer to the noun node. 
NUM_BYTES; i The number of bytes to expand memory 


Obtain the noun node. 
NOUN_NODE = .VERB_NODE CDBGSL_VERB_OBJECT_PTRI; 
Check for zero - this is an error. 
= MOU MODE EQL 0 

SDBG_ERROR (‘*GETMEMORY\DBGSNEXECUTE_ALLOCATE'); 
Extract the argument. 
NUM_BYTES = .NOUN_NODE CDBG$L_NOUN_VALUE]; 
: Force the user to allocate at least 1000 bytes. 
IF .NUM_BYTES LSS 1000 
THEN 


RERRRARARARRARRRERERERREE 
WN SO OBNOUS WN “OO DOONOUEWN—O 


SESSE 


s 


BEGIN 
MESSAGE Sek = DBGSNMAKE_ARG_VECT (DBG$_ALLOBNDS) ; 
RETURN STS$K_SEVERE; 


: Call DBGSEXPAND_MEMORY to get the memory. 
IF NOT DBGSEXPAND_MEMORY ((3+.NUM_BYTES)/4) 
| 


a et a a ts a ss bt te i ss a a 8 ss ts dt ta ts tt st 


Ooo DWOOOOO OO O69. 09 00 09 09 09 09 09 SI IIIS NIAAA AAAAAA A MMIMNIMIVNIVIVIW 


COOoooocecoo 
NOUSWN OO 


SNS NNN 


BEGIN 
»MESSAGE _VECT = DBGSNMAKE_ARG_VECT (DBGS_UNAEXPMEM, 1, .NUM_BYTES); 
RETURN STSSK_SEVERE ; 


ek Bt at a a ts 4 ss ns 4 dt i as ts a 4 a 4 
mk a a a aaa aaa a a at at a at ts td = = = ot = = SS 2 = = = 2 SY SY YS 


PORE IPORPORI INICIO PUPONOPOROPOPUPONIPOPOPONU UPON POPUNUPUPONND 4 


= 
uw SSeS 


' Return success. 


F 
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! 
RETURN STS$K_SUCCESS; 
END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
P.AAE: .ASCII <31>\GETMEMORY\<92>\DBGSNEXECUTE_ALLOC\ 


eASCII = \ATEN 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


000c¢ 00000 .ENTRY DBGSNEXECUTE_ALLOCATE, Save R2,R3 
53 000000006 00 i 0002 MOVAB DBGSNMAKE_ARG_VECT, R$ 
50 04 AC DO 0000 MOVL VERB NODE; R 
52 08 a0 8 000D MOVL (ROY, NOUN_NODE 
15 12 00011 BNEG 18 
00000000" EF 9F 00013 PUSHAB P.AAE 
1 OD 90019 PUSHL #i 
00028362 8F 0D 00018 PUSHL #164706 
000000006 00 03 FB 0021 CALLS #3, LIBSSIGNAL 
52 $2 DO 00028 1$: MOVL § (NOUN_NODE), NUM_BYTES 
000003E8 aF 32 Di 00 ; CPL NUM_BYTES, #1000 
00028688 8F OD $00 PUSHL #167560 
63 01 FB O0003A CALLS #1, DBGSNMAKE_ARG_VECT 
1D 11 0003p BRB 
50 03 A2 % OOO3F 28: MOV (R2), RO 
50 04 C 0043 DIVLS #4, RO, (SP) 
rears CF ot FB 0047 CALLS #1. DBGSEXPAND_MEMORY 
52 DD 0004F PUSHL NUM_BYTES 
01 oD 00051 PUSHL #1 
00028680 8F 0D 00053 PUSHL #167552 
63 03 FB 00059 CALLS #3, DBGSNMAKE_ARG_VECT 
08 BC dO 0005¢ 3$: MOVL RO, aMESSAGE_VECT 
50 04 9066 MOVL #4, RO 
50 01 a a 4$ MOvL #1, RO 
Be Oodg? Re 


; Routine Size: 104 bytes, Routine Base: DBGSCODE + 063E 
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1 

1 

1 

1 
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1 

10 

108 

109 
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114 

115 38 
116 7? 
117 38 
118 39 
119 40 
i RM 
1 4 

138 ray 
ise 245 
ae 
139 248 
128 49 
129 50 
1 51 
iH i 
1 : 54 
1 55 
fF $ 
1 58 
138 59 
139 60 
140 61 
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Boe ie 
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GLOBAL ROUTINE DBGSPARSE_ALLOCATE (PARSE_STG_DESC) = 


FUNCTION 


This routine provides an interface from the old debugger to the 
new debugger parse network for ALLOCATE. 


INPUTS 


OUTPUTS 


- A string descriptor for the remaining input 


A command execution network is constructed, and a pointer to 


the verb node is returned. 


PARSE_STG_DESC 
i 
i 
i 


BEGIN 


Pp 
PARSE_STG_DESC: REF DBGS$STG_DESC; 


LOCAL 
C 


Lege STG_PTR 
STG: REF VECTOR 


VERB_NODE: REF DBGSVERB_NODE; 


HAR: BYTE, 
DUMMY _MESS_VECT: REF VECTOR, 


C BYTE), 


Allocate space for a verb node. 
VERB_NODE = DBGSGET_TEMPMEM(DBG$K_VERB_NODE_SIZE); 


' Stuff a carriage return at the end 

! of the input Line since this is what the new style 

! parser expects to see. Also, translate the Line to 

upper case (the new debugger does this; the old does not) 


len = .parse_stg_descldsc$w_leng 
stg = dbg$get_tempmem (1+(1?. Len 


TO .len=1 


th) 


! Holds a character 
Address of message vector returned 
from DBGSNPARSE_ ALLOCATE 
Length of command Line 
Pointer into command Line 
Pointer into a new copy of the 
command Line 
Pointer to a verb node. 


hd; 
)/ZUPVAL); 


arse_stg ptr = ch$ptr(.parse_stg_descldsc$a_pointer)); 
Renee ore gah 


NCR 7 
BE 
char = ch$rchar 


a(parse_stg_ptr 
Ul -char GEQ %C%a° AND enat 


; 
LEQ Z£C*2" 


N 
stgl.i] = .char - (2C*°a'-ZC'A") 


ELSE 
stgl.i] = .c 
END 


parse_stg_desc 
parse_stg_desc gecty 
-parse_stg_desc 


stgl.len] = dbg$k_car_return; 
Bointer} = .$tg; 
ength) = 

Gsc$u_length) + 1; 


dst$a_ 


har; 


: Now call the parser on the remainder of the input Line 
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sPARSE_STG_DESC, 
VECT) 
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IF NOT DBGSNPARSE ALLOCATE ( 
racy VERE=NODE. DONNY NESS 
t 


: If the above routine does not return success, then we signal 
an error using the error message vector that we got back. 


BEGIN 
a ROUTINE 
LIBSSIGNAL : ADDRESSING_MODE (GENERAL); 
BUILTIN 
CALLG; 
FALLS (DUMMY _MESS_VECT, LIBSSIGNAL); 


! Restore pointer field of PARSE_STG_DESC since this can be wiped out 
during new style parsing. 


9 
0 
1 
g 
4 
5 
6 
? 
8 
9 
0 
1 
g 
4 
5 


iF iran se-sta_descldscSe_pointer) EQL 0 
parse_stg_desc(dsc$a_pointer] = .stg+.len; 


SOON VEO OONOULS WO 


finally, return a pointer to the verb node. 
RETURN .VERB_NODE; 
END; ! dbg$parse_allocate 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
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5 
P) 
6 
6 
6 
6 
6 
6 
66 
67 
68 
69 
70 
4 
75 
Pe 
75 


a ee ed ed ed ed ed 


rors 


000000009000 0009 0909090909 INI NNS 
Ouiekwnr— 


— 


~-EXTRN LIBSSIGNAL 


007¢ 00000 .ENTRY DBGSPARSE_ALLOCATE, Save R2,R3,R4,R5,R6 : 1213 
5E 04 C2 0000¢ SUBL2 #4, SP : 
03 DD 0000 PUSHL @ 3 1243 
FEI9. so 01 FB 0007 CALLS #1, DBGSGET_TEMPMEM : 
56 50 pO 0000¢ MOVL RO F 
54 04 AC DO 0000F VL PARSE_STG_DESC, R4 : 1251 
32 64 3C 00013 MOV2WL (R4), “LEN ; 
5 01 A2 9E 00016 ROVAR 1(R25, RO : 1252 
50 04 a) OO1A Divi2 #4, RO : 
01 AO SF 0001D PUSHAB 1(RO) F 
FEOO = CF 1 €B 00 CALLS. #1, DBGSGET_TEMPMEM ; 
H 0 OD MOVL S 3 
06 Ad D MOVL  4(R4), PARSE_STG_PTR : 1253 
50 91 cf ¢ RINE GL “i, | 71 59 
51 5 90 1 1%: MOVB (PARSE_STG_PTR)*, CHAR : 125 
61 BF 83 91 CMPB HAR, 8} sa : 1388 
D iF BLSSU ; 
7A soa 1 91 A MPB HAR, #122 F 
7 1A BGTRY ; 
6043 51 3 85 4 $uBs #32, CHAR, (1)CSTG) 3 1259 
604 1 9 4 33: MOVB (CHAR, (1)(STG) .% $) 
E2 5 2 Ff 4B 3$: AOBL SS LEN. 3 > 1254 
624 D 90 00045 MOVB #13, (LEN)CSTG) > 1263 


GET Y 1b-5¢ Sep-1 +33 AX-11 Bliss-32 v4.0-74 Page 39 
Rete 1 ~3007} Re 95:95 1 DEBUG. chc See THEMORY .039;1 ° as 
04 Ab 53 D0 : MOV STG, 4(R4) : 1264 
4 86 INCW = (RGS +1 $6 
4050 8F BB 9 PUSHR on M<R4,R +4 
FEDD sCF ; FB e CALLS 3, ‘ D éscbanse ALLOCATE : 
000000006 00 BE FA 0006 CALLG @DUMMY_MESS VECT, LIBSSIGNAL : 1282 
04 A o9 $0 4$: MOVL PARSE. S1G_DESC, RO 31 
AD D 1 TSTL : 
12 00074 BNEQ : 
046 Ad 53 2 C1 00076 ADDL3 STG 4(R0) + 1290 
50 6 DO 00078 5$: MOVL mi R. NODE, + 1294 
04 0007E RET + 1296 


; Routine Size: 127 bytes. Routine Base: DBGSCODE + 06A6 
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44 GLOBAL ROUTINE DBGSPOP_TEMPMEM(POOLID): NOVALUE = 
38 i FUNCTION 
00 : This routine pops the pointers to the temporary memory blocks off 
01 : the Temporary Memory Pool Stacks. Releases the temporary memory 
8 blocks for each pointer. 
04 i INPUTS 
05 ‘ POOLID = Stack ID to the Temporary Memory Pool Stacks, i.e., pops 
8 : from the current stack ID to POOLID. 
i QUTPUTS 
None. 
BEGIN 
LOCAL 
BLKPTR: REF VECTORC,LONG), ! Pointer to the current temporary 


' 

¢ block to release 
NEXTBLK; paaneer 3 the next block on the 
! chain 


Make sure when we do the pop operation won't cause stack underflow. 

if a LSS 1) OR (.POOLID GTR .DBGSTEMPMEM_POOLID) 
$DBG_ERROR(*GETMEMORY\DBGSPOP_TEMPMEM stack underflow’); 

: ~~ from the current level to the given level. For each pop operation, 

release the temporary memory blocks pointed by DBGSTEMP_MEMORY. 


BLKPTR = .DBGSTEMP_MEMORY; 
DECR I FROM .DBGSTEMPMEM_POOLID TO .POOLID DO 


GIN 
WHILE .BLKPTR NEQ 0 DO 
BEGIN 
NEXTBLK = .BLKPTR(O); 


) 
DBGSREL_MEMORY(.BLKPTR) ; 
BLKPTR = JNEXTBLK; 


we 
w 


lag = .DBGSTEMPMEM_POOLSTKC.1 - 1); 


MEW 0 OD NOUN WN 0 OONO UENO OONOUE WN OC @ 


$ Adivet the current Temporary Memory Pool Stack pointer and the current 
Pointer to the Temporary Memory blocks. 


DBGSTEMP_MEMORY = .DBGSTEMPMEM_POOLSTK(.POOLID - 1); 
DOGS TERPRER_POOL 1 = ,POOLID -"1; 


a a ee ee ee 
= PIPIPIPIPOPIPIPIPIPRI HUW & B&B NIPPON NDI AANIPIPININININPINUNPINDINIDD 2 OOO Ot OO oe oe 


ww ww) oY ot Dt at et et 
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GE 


32 
™ 


V4.0-74 
EMORY .832;1 


( 


40 
14) 


8 + 1984 247: 
12-808 93: :18: 


5 AX-11 Bliss-32 v4.0-74 
=135? +43 $-32 0- Page 


DEBUG. § Re GETMEMORY .832; 1 (1a) 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
4F 40 & 4D 4 65 647 9 0070 P.AAF: .ASCII \)GETMEMORY\<92>\DBGSPOP_TEMPMEM stack u\ 
at et er 50 oe g a . piecayte 
77 6F 6C 66 72 ge 64 6E i 


es 47 42 44 SC 
74 735 20 4D 


59 5 
iS a 


F 
5 ASCII \nderflow\ 


-PSECT DBGSCODE.NOWRT, SHR, PIC,0 


003¢ 000 .ENTRY DBGSPOP_TEMPMEM, Save R2,R3.R4,R5 : 1297 
55 00000000° EF 9€ 0000 MOVAB DBGSTEMPMEM_POOLID, RS : 
04 ac 05 000 TSTL  POOLID + 1326 
06 #1 4 BLEQ 5 
65 04 AC D1 005 CMPL  POOLID, DBGSTEMPMEM_POOLID : 
1§ 15 0001 BLEG ; 
00000000' EF 9F 00014 1$: PUSHAB P.AAF : 1326 
1 DD OOO1A PUSHL i : 
00028362 8F 0D 0001 PUSHL #6 : 
000000006 99 3 FB 000 CALLS sis ; 
§ FC AS DO 00009 28: MOVL +i shine AERORY, BLKPTR + 133 
52 65 DO 000 MOVL BGSTEMPRMEM_POOLID, I : 133 
19 11 000 BRB ‘ ; 
53 DS 00032 3s: TSTL @®LKPTR + 1335 
OF 1 00 BEQL 3 
54 $3 D0 000 MOVL (BLKPTR), NEXTBLK : 1337 
53 0D 00039 PUSHL a ; 13358 
0000v CF 91 FB 000 CALLS DBGSREL_MEMORY 3 
53 4 p0 0004 MOVL NEXTBLK, BLRPTR 2 ¥ 3? 
ED 11 904 BRB : 1335 
53 654 09 0045 4$: MOVL § DBGSTEMPMEM_POOLSTK-4(1), BLKPTR : 1 ; 
52 07 00049 DECL : 133 
04 Ac 52 D1 00048 S$: CMPL POOLID ; 
é1 if O04F BGEO . : 
50 04 AC 00 00051 MOVL OLID, RO 3 1349 
FC OAS 6540 DO 00055 MOVL DBSS TPAPRIER POOL STK=4CRO1, DBGSTEMP_MEMORY ; 
65 FF AO 9E OO05A MOVAB -1(RO), DBGSTEMPMEM_POOL I : 1350 
04 0005€ RET : 135 


; Routine Size: 95 bytes, Routine Base: DBGSCODE + 0725 
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} 5 : GLOBAL ROUTINE DBGSPUSH_TEMPMEM = 
1 1 i FUNCTION 
1238 1 : This routine pushes the current pointer to temporary memory blocks 
1239 1 : on the Temporary Memory Pool Stack. Reset the current pointer to 0, 
; re : so the new temporary memory blocks can be initiated. 
124 1 i INPUTS 
124 1 : None. 
12464 1 : 
1245 1 ' OUTPUTS 
1 re 1 4 The current Stack ID is returned. 
124 1 : 
1248 1 
1249 1 BEGIN 
= | 
: 2 ; Increment the Temporary Memory Pool Stack pointer. 
1 34 DBGSTEMPMEM_POOLID = .DBGSTEMPMEM_POOLID + 1; 
1256 1 
: 4 ; Make sure the stack won't overflow by above operation. 
1 9 if .DBGSTEMPMEM_POOLID GTR 25 
: 63 : $DBG_ERROR('GETMEMORY\DBGSPUSH_TEMPMEM stack overflow’); 
126 1 
1368 1 ! Save the current temporary 7 block pointer on the stack, and 
{$22 : } initiate a new temporary memory block pointer. 
1207 1 DBGSTEMPMEM POOLSTKC.DBGSTEMPMEM_POOLID - 1] = .DBGSTEMP_MEMORY; 
1268 1 DBGSTEMP_MEMORY = 0; 
1269 1 RETURN .BBGSTEMPMEM_POOLID; 
1270 1 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
47 $e 44 5C 59 52 GF 4D 465 4D 54 45 47 $3 QOO9A P.AAG: .ASCII \) GE TMEMORY\<92>\DBGSPUSH_TEMPMEM stack \ 3 
73 20 40 45 4D 50 40 45 54 SF 48 53 55 50 QO00A9 3 
$9 $8 $3 61 088 3 
77 6F 6C 66 6 6 6F OBC ASCII \overflow\ 3 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0O 
009s -ENTRY DBGSPUSH_ TEMPMEM Sexe Re ; 1354 
52 00000000" EF : MOVAB DBGSTEMPREM_POCLID, R 3 
62 D INCL DBGSTEMPMEM-POOL ID ; 133 
19 6 1 CMPL QESTEMPRER_POOL ID. #25 ; 137 
1 5 BLEQ 3 
00000000° Ft oF PUSHAB P,AAG ; 1380 
1 pd 0001 PUSHL = #i : 


vos~600 


own-=s 
aeaw 


0002836 F 
000000006 6 oh, 5 
624 


FC 
FC 


orro 


50 mY 


04 0 
; Routine Size: 52 bytes, Routine Base: DBGSCODE + 0784 


If 
i 


AX-11 Bligs<-32 v4.0-74 Pp 3 
18:81 EOEaUG.SReSetmemoRy.03s;1 788° 483 
#16 § 
seat eee POOLID + 1386 
DBGSTE MP REROR RY, DGS 1 EMPMEM. POOLSTK=4(RO] : 
Soe STERP RY : 1387 
DBGSTEMPRER. POOLID, RO 3 1338 


| 15 
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Ghanboo. aoe THE DEBUG. ERC TCE TREMORS O3o51 . (16) 
3 ; y } 39 ; GLOBAL ROUTINE DBGSREL_MEMORY (ADDRESS): NOVALUE = 

: 1076 1 3 1 ' FUNCTION 

3: 1275 1395 1! This routine releases the are block at a specified address to the 

3: 127 1396 1! free apnery pool. The aepery block is coalesced with the previous and 
3; 127 1395 1! the following memory blocks if these are free and is added to the free- 
ie ce lip yh tee 

> 1280 1 98 1} INPUTS 

: 1281 1 1! ADDRESS = The address of the aonery block to be released. This must be 
3 1 § 1400 1! the same address as originally returned by DBGSGET_MEMORY when 
5 ; Ht re} ; the block was allocated. 

> 1285 1408 1 ourPuTs 

: ! Hy] 1e8e : The specified memory block is released. No value is returned. 

: 1288 1406 & 

3 : 44 et BEGIN 

: 1291 1409 MAP 

3; 129 1410 ADDRESS: REF FMEMSBLOCK; ' Pointer to the allocated part of the 
s : + 161) ! block to be released 

: 1295 1218 LOCAL 

3 1296 1414 BACKPTR: REF FMEMSBLOCK, ' Pointer to previous free-list block 

3; 1297 1415 BLKPTR: REF FMEMSBLOCK, ! Pointer to the released memory block 
: 1298 1el8 FORWPTR: REF FMEMSBLOCK, ' Pointer to the next free-List block 

3: 1299 141 NEXTBLK: REF FMEMSBLOCK, ' Pointer to the next sequential memory 
3 1 1418 : ock in the memory pool 

3; 1301 1419 PREVBLK: REF FMEMSBLOCK; ' Pointer to the previous sequential 

3 ; ¢ : Y : memory block in the memory pool 
: 1302 14 ; 

: st 14 

3 1 1426 ! Pick up the address of the nanery block header. Then do some integrity 

3 : ? 5 checks to make sure this is a valid allocated memory block. 

31 14 5 BLKPTR = AD RESSCFMENSA HEADER); 

; 1310 14 : IF (.BLKPTRCFMEMSB SENTINEL) NEQ FMEMSK_SENTINEL) OR 

3 : 1 ¢ 4 a — -BLKPTRCFMEMSV_THISALLOC)) 

:1 g 1431 SIGNAL (DBGS_INTMEMERR, 1, .BLKPTR); 

{1318 1238 

: 1 8 14 ' See if we can combine the released block with the previous sequential 

3 1 1435 ' block in the memory pool. If we can, we make BLKPTR point to that prev- 
3 ! $ ¢ ious block and increase its length accordingly. 

3 1320 14 8 if NOT .BLKPTRCFMEMSV_PREVALLOC) 

: 1321 14 THEN 

< ; 1440 BEGIN 

s 7 1441 PREVBLK = .BLKPTR = 4*.BLKPTRCFMEMSL PREVLEN); 

3 : $ res IF ,PREVBLKCFMEMSB_SENTINEL) NEQ FMEASK_SENTINEL 

; : $ ieee SIGNAL (DBGS_INTMEMERR, 1, .BLKPTR); 

; 1328 1446 PREVBLKCFMEMSV_LENGTH) = 


voo-600". iesbeer9He 68:40:85 YABGNE SUSEEHRSNaOESS., Peat 


BEGIN 
FORWPTR = -NEXTBLK FMEMSL_FLINK]; 
BACKPTR = .NEXTBLKCFMEMSL BLINK); 
FORWPTRCFMEMSL_BLINK] = .BACKPTR; 
BACKPTREFMEMSL_ ae "FORWPTR: 
BLKPTRCFMEMS$V CENGT 
-BLKPTR PMENSV. LENGTH) + .NEXTBLKCFMEMSV_LENGTH); 


ROO 


SoSSE 


o 
0 


! We have now done all coptecc ing we can do. Set the length of the block at 
the end of the block and mark it there as being unallocated. Then return. 


NEXTBLK = MSL PR + 4*, BLKPTRCFMEMSV LENGTH); 
NEXTBLKCFMEMSL_PREVLEN) = .BLKPTRCFMEMSV LENGTH); 
WE TURNS FMEMSV-PREVALLOC) = FALSE; 


3 9 1447 st 1 yA LENGTH] + .BLKPTRCFMEMSV_LENGTH); 
; 0 1638 BLKPTR = .PREVBLK 

3 1 144 END 

St tH 

: 4 14 § ! If the previous block was not free, mark the released block itself as 
; 5 1ee7 } unallocated and Link it into the free-List. 

3 12e¢ ELSE 

; 8 1028 BEGIN 

: \] 145 Ponuote wee THISALLOC) = ast 

> 1340 1458 FORW DBESEREE_LTSTCFRER L FLINK); 

3 1 14 BACK NPTR = GSFREE_LIST; 

; : 1460 BLKPTR FMEMSE PL INE] = .FORWPTR; 

3 4 1461 BLKPTREFMEMSL BLINK] = -BACKPTR: 

; 4 1466 FORWPTRCFMEMSC “PLING = .BLKPTR; 

3 5 146 BACKPTRLFMEMSL- FLINK] = .BLKPTR; 

3 1346 1464 END; 

$ 7 1465 

3 8 1466 

3 1349 1467 ' Now see if the next sequential block in the aenery pool is free. If it 
: 29 1088 is, we unlink it from the free-list and coalesce it with the BLKPTR plant 
3 24 1470 NEXTBLK = LKPTR + 4*,.BLKPTRCFMEMSV_LENGTH); 

; 323 1471 IF .NEXTBLKCFMEMSB_SENTINEL) NEQ FMEMSK_SENTINEL 
: 2? 1478 SIGNAL (DBGS_INTMEMERR, 1, .BLKPTR); 

3 1357 1475 IF NOT .NEXTBLKCFMEMSV_THISALLOC) 

° 58 1476 THEN 

3 1359 1477 

; 0 1478 

3 1 1479 

; ¢ 1480 

; 1481 

3 186 

3 148 

: 1484 

; 1485 

; 1486 

: 1487 

3 1488 

; 1489 

3 1490 

3 1491 

: 1638 

3 149 

: 1494 

: 1495 


WANA 
SN NN 
NOUSWN—O 


007¢ 09 .ENTRY DBGSREL_MEMORY, Save R2,R3.R4,R5,R6 : 1390 
56 000000006 00 Hi 9 ROVAB 46851 IGRAL, R6 ; 
53 06 AC 4 ¢3 000 SUBL soorets. BLKPTR > 1427 


| 15 
T Y 18-Sep-19 4 02:47:25 AX-11 Bliss-32 v4.0-74 
woe"bod" 14-Sep-1984 TE {oeBuG. SAC GE TMEMORY.B32;1 
B2 oS 03 ad 91 CMPB 3(BLKPTR), #178 
04 1 1 BNEQ 
0D 63 ; F 1 BBS #22, (BLKPTR), 2% 
DD 00019 18 PUSHL BLKPTR 
1 0D 00018 PUSHL # 
O0028AFS B&F DD 19 PUSHL #166644 
6 3 F CALLS #3, | IBSSIGNAL 
36 17 € 6 28 BBS #2%, cBLKPTR), 4$ 
FC OAS OD A -4(ALKPTR), RO 
94 cs 0 F MULL2 #4, RO 
52 § SUBL3 RO, BLKPTR, PREVBLK 
B2 «BF 03 A 4 3 CMB (PREVBLK), #178 
a te 
O0028AF4 8F ODD wt PUSHL #166644 
6h 3 FB 046 CALLS #3, L $S1GNAL 
50 62 16 0 EF 904 ag EXTZV ; #22, (PREVBLK), RO 
51 6 18 90 EF 0046 EXT2 #0, , * (BLKPTR), R1 
62 16 99 3 FO Mier INS RO, #0, #22, (PREVBLK) 
34 b0 0058 ROVE PREVBLK, BLKPTR 
02 a3 40 8F BA 066 48: BICB2 #64, 2(BLKPTR) 
50 00000000° EF 09 06 MOVL DBGSFREE_LIST, RO 
i amr 
06 Ad ae » 007 MOVO FORWPTR, 4(BLKPTR) 
08 Ab 33 00 007 MOVL  BLKPTR, 8(FORWPTR) 
s =f $3 PP SUUPP ss, Bethy SbfPaes SiakCoray” ng 
52 6349 DE 0084 MOVAL (BLKPTASCROD NEXTBLK 
B F A CMPB NEXTBLK), 
2 8 03 rH 4 28 CHPS 3 EXTBLK), #17 
dd ost PUSHL BLKPTR 
soozeare $f BB 908 BUSHL aT 
66 03 FB 0099 CALLS #3, LIBSSIGNAL 
1€ 2 16 5 ¢ 68: BBS #25, (NEXTBLK), 7% 
4 04 Ag D OOOA MOV 4(NEXTBLK), FORWPTR 
08 Aé 09 O0A4 MOVL  BACKPTR, B(FORWPTR) 
04 AS 4 0D a8 MOVL FORWPTR. 4(BACKPTR) 
50 63 16 0 EF OO00AC EXTZV #0, @ g. (BLKPTR), RO 
51 62 16 9 EF 1 EXT #0; #22. (NEXTBLKS, R1 
5 C0 ADDL2 RI. R 
63 1 00 F INSY RO. #0, #22, (BLKPTR) 
50 6 1 00 EF 7$: EXTZv #0. #20, ( cKPTR) RO 
5 634 3 C MOVAL (BCKPTRIER , NEXTBLK 
FC OA 30 ¢ MOVL RO, =4(NEXTBLK) 
02 A 80 BF A cB B1CB2 #108, 2(NEXTBLK) 


3; Routine Size: 209 bytes, Routine Base: DBGSCODE + 0788 


15 
GETMEMORY 1b-se =1984 02:47:25  VAN=11 BLiss-32 v6.0-7% Page 47 
Sha 7a ee- ihe P5308; = ede SaCSEetmenGas oss.) 290 7) 
GLOBAL ROUTINE DBGSREL_TEMPMEM: NOVALUE = 


FUNCTION 

This routine releases all ‘‘temporary’’ memory blocks allocated by routine 
DBGSGET_TEMPMEM. This routine is normally called after the completion 
of each command=--it thus cleans ue ny storage used in processing the 
command without requiring an explicit release call for each such block. 


i 

i 

i INPUTS 
NON 
' 


8 

88 

89 

90 OUTPUTS 

91 ALL “‘temporary’’ blocks on the DBGSTEMP_MEMORY List are released to the 
3 memory pool. No value is returned. 

94 

95 BEGIN 

38 LOCAL 

98 BLKPTR: REF VECTORE,LONG), ' Pointer to the current temporary block 
99 : to release 

4 NEXTBLK; ! Pointer to the next block on the chain 
08 

74 If this is a Testable Debugger, check the condition of the memory pool. 

O° if -DBGSGV_CONTROLCDBGS$V_CONTROL_TDBG] THEN DBGSCHECK_MEMORY(); 

08 

09 ! Clear the RST Reference List to contain zero entries. This says that the 


! current Debug command has ended, and the RST entries it referenced are no 
longer being referenced by SYMIOS elsewhere in the Debugger. 


RSTSREF_LISTC1) = 0; 


! Loop through the singly Linked List pointed to by DBGSTEMP_MEMORY and 
release each block on the List to the free memory pool. 


BLKPTR = ,DBGSTEMP_MEMORY; 
WHILE TRUE DO 


BEGIN 
WHILE ry pl NEQ 0 DO 


NEXTBLK = .BLKPTR(O); 
DBGSREL_MEMORY( .BLKPTR); 
BLKPTR = .NEXTBLK; 


IF .DBGSTEMPMEM_POOLID EQL 0 THEN EXITLOOP; 
DBGSTEMP_MEMORY”= .DBGSTEMPMEM_POOLSTKL.DBGSTEMPMEM_POOLID - 1); 
BLKPTR =~. DBGSTEMP_MEMORY: 

DBGSTEMPMER_POOL 1D = .DBGSTEMPMEM_POOLID - 1; 


ee ed oe aed ed ot wd wd 
FUNSLSSONS Okun SOOMNOnFwN--o 


ee eee ee ee ee eee 


For at ot ot ot ot ok ot ot ot od tot et ee ee ee ek eked 
a a a a ee ee a a a a ee ed wd ed 


PUP DV PV LULU DUDU LUPUS SVULUSU IIIS ST SUSU SU SUSU SIESTA SUSI SISSIES ££ SS 


PRP IWIN WINE. BB BI ORPOPIPONIPONONOPOPOPUPONUPPPORPONINUNIPUNND 


ww 
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DBGSTEMP_MEMORY = 0; 


1b-Sep=1 
1e-Sep-1 
334 ; RETURN; 
5 END; 
001C 000 
be 0000000" EF 43 00 
£762 5 000000006 00 : 94 
gf 000000006 0 D8 0015 1$: 
064 AO D4 1¢ 
52 $3 00 OO00T1F 
2 05 00022 2$: 
53 ¥ M $0 6 
$5 DD 000 § 
FEFF CF 01 fe 00 
52 53 00 000 
ED 11 000 
50 06 AG 09 0035 3$: 
0D 1 sit 
64 04 A440 00 00038 
52 64 4 49-98 
04 A& D7 0004 
DA 11 00046 
64 D4 00048 4$ 
04 O004A 
Routine Size: 75 bytes, Routine Base: DBGSCODE + 0889 
1439 1556 1 
1440 1557 0 END ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
DBGSOWN NOVEC, WRT, RD aan 1 $e NOSHR, 
OBGSCODE 296 NOVEC, *NOWRT, EXE, SHR, 
DBGSPLIT 6 NOVEC, “NOWRT, RD, EXE, SHR, 
Library Statistics 
eo we ae a ee Syabols wenerooes 
File Total Loaded Percent 


49 AX-11 Bligss-32 v4. 40-7 


DEBUG. SRC JGETMEMORY .B32;1 


eENTRY DEGSREL i Save R2,R3,R4 
MOVAB EMP_MEMO 
BLBC Sees ey Ont TOOL 
CALLS DBGSCHECK r. ASay 
MOVL ah LIST,” 
CLRL 4(R 
MOVL DBcS TEMP MEMORY, BLKPTR 
TSTL KPT 
BEQL 
MOVL (BLKPTR), NEXTBLK 
PUSHL  BLKPTR 
CALLS 4P DBGSREL_MEMORY 
nove NEXTBLK, BLRPTR 
sy DEGSTEMPRER, POOLID, RO 
MOVL DBGSTEMPMEM POOLSTK=4CRO), DBGSTEMP_MEMORY 
MOVL DBGSTEMP_MEMORY, BLKP 
pECL DBCSTEMPRER, POOLID 
CLRL DBGSTEMP_MEMORY 
RET 
-EXTRN LIBSSIGNAL 
LCL. RE CON, PIC -ALIGN( 2) 
LCL, REL, CON, PIC,ALIGN(O) 
LCL, REL, CON, PIC,ALIGN(O) 
Pages Processing 
Mapped Time 


Pane 38 


VAP FU FS vi 


VNVnO@On COW hr SF 


} 
ae" HSReciSt QBAGSE ESL SAMOA. 
; SDUA28:(SYSLIBILIB.L32;1 18619 9 1009 :01.9 
; SUA : (DEBUG. OBJ StRutper 32; 3 :00. 
: : (DEBUG .OBJ L323; 154 4 97 :01. 
; SpuA : (DEBUG. OBJ DE TRECRDS. (32:1 
3 418 0 1 700. 
: ice thoael aatianaiaiel 386 1 2 :00. 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, ,OPTIMIZE)/LIS=L1S$:GETMEMORY/OBJ=OBJ$:GETMEMORY MSRC$:GE TMEMORY/UPDATE =(ENHS$: GE TMEMORY) 
Size: 2260 bores: + 312 data bytes 
Time: 


gels 
Lexenes/CPU-Rin: 15433 

7 ue sed: 200 pages 
— ation Complete 
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